procedure TMyThread.Execute;
begin
Form1.ClientS.active:=true;
sleep(2000);
end;
procedure TForm1.ClientSConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
memo1.Lines.Add('yes');
Form1.ClientS.close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
MyThread:=TMyThread.Create(false);
end;