Problem mit TClientSocket (nonVCL)

[Torpedo]

Hallo,
kann mir bitte jemand sagen, was daran falsch ist?

Delphi-Quellcode:

program test;

uses
  windows,scktcomp;

type
  TApp = class(TObject)
  Client: TClientSocket;
Public
  procedure Start(Sender: TObject);
end;

var
App: TApp;

procedure TApp.Start(Sender: Tobject);
begin
try
   App.Client.Create(nil);
except
   messagebox(0,'Fehler','Fehler',16);
   App.Client.Free;
end;
end;

begin
App.Start(App);
end.

Ich habe Delphi 7 Professional. Wenn ich das Programm starte kommt immer der Fehler.

Danke für die Antworten
mfg,
Torpedo