1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

....
begin
  with IdTCPClient1 do begin
    Host := Edit1.Text;           // IP-Addresse zuweissen
    Port := IntToStr(Edit3.Text); // TCP-Port zuweissen
    Connect();                    // Verbinden, und hier wird normal schon ein "[TS]" raus gegeben, und das soll ins Memo1
    WriteLn('SEL ' + Edit2.Text); // Server ausgewählt, wenn er exestiert wird "OK" ausgegeben, soll auch ins Memo1
    WriteLn('SLOGIN ' + Edit4.Text + Char(32) + Edit5.Text); // Als Superadmin eingelogt wenn die daten stimmen das kommt wieder ein "OK" das soll auch ins Memo1
    {...}
  end;
end;