Wie kann ich: "Ein Realtime System programmieren"

[ElectricalFire]

ok habs selbst rausgefunden:

connect in einem thread:

Delphi-Quellcode:

procedure twinform.connect;
begin
  with TidTCPClient1 do begin
    Connect;
  end;
end;

Read in einem Thread:

Delphi-Quellcode:

procedure TWinForm.transfer
begin
  with TidTCPClient1 do begin
      listbox1.Items.Add(iohandler.readln);
  end;
end;

und server seitig:

Delphi-Quellcode:

procedure TWinForm.tcps1_onExecute(AContext: IdContext.TIdContext);
begin
with AContext.Connection do
  begin
    iohandler.WriteLn('Server/Client Connected Successfully!');
  end;
end;