Umstellung eines Progs von Indy 9 nach Indy 10

[moelski]

Moin !

Es gibt hier:
http://delphi.about.com/od/interneti.../aa012004a.htm
ein nettes Progrämmchen was die Verwendung von TCP Client / Server demonstriert. Das basiert aber auf Indy 9 und ich würde es gerne in Indy 10 verwenden.

Einige Teile kriege ich ja umgestellt, aber bei drei Sachen fehlt mir die Erklärung...

1) IdThreadMgr, IdThreadMgrDefault
Gibt es die in Indy 10 überhaupt noch (oder gibt es da einen Ersatz für)? Mein Delphi 2007 kann mit den Units rein gar nichts anfangen. Eine Suche hat mich auch nicht weitergebracht.

2) Was muss ich für AThread.Data und AThread.Terminated nutzen?

Delphi-Quellcode:

procedure TMainFormServer.TCPServerExecute(AContext: TIdContext);
var
  Client : PClient;
  Command : string;
  Size : integer;
  PicturePathName : string;
  ftmpStream : TFileStream;
begin
  if not AThread.Terminated and AContext.Connection.Connected then
  begin
    Client := PClient(AThread.Data);
    Client.LastAction := Now;
....

3) Bei einem Connect eines Clients wird einem Record ein Thread übergeben. Wie muss ich das anpassen?

Delphi-Quellcode:

type
  PClient   = ^TClient;
  TClient   = record
    PeerIP      : string[15];            { Cleint IP address }
    HostName    : String[40];            { Hostname }
    TakeShot    : boolean;
    Connected,                           { Time of connect }
    LastAction  : TDateTime;             { Time of last transaction }
    Thread      : Pointer;               { Pointer to thread }
  end;

procedure TMainFormServer.TCPServerConnect(AContext: TIdContext);
var
  NewClient: PClient;
begin
  GetMem(NewClient, SizeOf(TClient));

  NewClient.PeerIP      := AContext.Connection.Socket.Binding.PeerIP;
  NewClient.HostName    := GStack.HostByAddress(NewClient.PeerIP);
  NewClient.TakeShot    := False;
  NewClient.Connected   := Now;
  NewClient.LastAction  := NewClient.Connected;
  NewClient.Thread      := AThread;   // <<<<<----------

  AThread.Data := TObject(NewClient);