Problemas con TIdTCPClient en delphi7 DLL, no se puede conectar al servidor

Si es posible, espero que puedas agregarme como amigo de Baidu y estudiar juntos.

Archivo DLL:?

biblioteca?DLLDPR;?

Propósito:

ShareMem,?

IdTCPClient ;?

{$R?*.res}?

función?linkserver(host:?string;?port:?integer):?boolean;?

var?

tcp:?TIdTCPClient;?

¿comenzar?

tcp.Host?

tcp.Port?

probar

tcp.Connect(1000);?

¿excepto?

¿resultado?

fin;?

¿exportaciones?

fin.

¿archivo EXE?

función?linkserver(host:?string;?port:?integer):?boolean;?

externo?

procedimiento?TForm1.Button1Click(Remitente :?TObject);?

const?('Fallo', ?'' Éxito');?

var?

¿comenzar?

b:=?linkserver(edit1.Text,?strtointdef(edit2.Text,?80));?

showmessage('¿Conectado a'? +?edit1.Text?+? #13 ?+?ba[b]);?

fin;