procedure TForm1.Button5Click(Sender: TObject);
var s : string;
begin
try
with IdTCPClient1 do
begin
Port := StrToInt(Edit1.Text);
Host := Edit2.Text;
Connect;
s := IOHandler.ReadString(10);
Memo1.Lines.Add(s);
IOHandler.WriteLn(Edit3.Text);
disconnect;
end;
except
on E : Exception do
begin
ShowMessage('Connection Error: ' + E.Message);
exit;
end;
end;
end;