Efectivamente el método WaitFor suspende la ejecución del programa hasta que el método Execute termina y, por tanto, se utiliza en aquellos casos en que el programa principal, para poder continuar, necesita previamente un dato que ha de proporcionarle el Thread. Al no ser este tu caso, en su lugar, puedes aprovechar el evento OnTerminate del hilo que será llamado justo cuando éste finalice. Para ello podrías hacer algo parecido a lo siguiente (esto en la form desde donde creas el hilo):
Código Delphi
[-]type
TForm1 = class(TForm)
......
public
private
Procedure FinHilo(Sender: TObject);
end;
var
Form1: TForm1;
RetornoHilo: integer;
implementation
{$R *.DFM}
uses UConnection;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TConnection.Create (false) do
begin
FreeOnTerminate:= True;
OnTerminate:= FinHilo;
end;
end;
procedure TForm1.FinHilo (Sender: TObject);
begin
label1.caption:= IntToStr(RetornoHilo);
end;
Y luego en el método execute del hilo tomas el valor de RetornoHilo:
Código Delphi
[-]procedure TConnection.Execute;
begin
with TIdTCPClient.Create(application) do
Try
host:= IP;
port:= cport;
try
connect;
writeln(MSG);
disconnect;
RetornoHilo:= 1;
except
RetornoHilo:= 0;
end;
finally
free;
end;
end;
Espero te sirva. Saludos.