Bezeichnungs Fehler - Was mach ich falsch?

[flobus]

Moin,
ich hab einen Quellcode den ich nicht compilieren kann, weil mein Pc
folgenden bezeichner nicht erkennt:

Code:

type
  TfrmServer = class(TForm)
    TCPServer: TIdTCPServer;
    procedure FormCreate(Sender: TObject);
    procedure TCPServerExecute(AThread: TIdPeerThread);

AThread: TIdPeerThread
was mach ich falsch?

Hier der gesamte quellcode:

Code:

unit ServerMain;

interface

uses
  SysUtils, Classes,
  {$IFDEF Linux}
  QGraphics, QControls, QForms, QDialogs,
  {$ELSE}
  Graphics, Controls, Forms, Dialogs,
  {$ENDIF}
  IdBaseComponent, IdComponent, IdTCPServer;

type
  TfrmServer = class(TForm)
    TCPServer: TIdTCPServer;
    procedure FormCreate(Sender: TObject);
    procedure TCPServerExecute(AThread: TIdPeerThread);
  private
  public
  end;

var
  frmServer: TfrmServer;

implementation
{$IFDEF Linux}{$R *.xfm}{$ELSE}{$R *.DFM}{$ENDIF}

procedure TfrmServer.FormCreate(Sender: TObject);
begin
  TCPServer.Active := True;
end;


procedure TfrmServer.TCPServerExecute(AThread: TIdPeerThread);
begin
  with AThread.Connection do
  begin
    WriteLn('Hello from Basic Indy Server server.');
    Disconnect;
  end;
end;

end.

Liegt das an meiner Delphi-Version? (Borland Delph 2005 (Borland® Developer Studio für Windows™)

Bitte helft mir ich bin am verzweifeln!

mfg flobus