Clientsocket NonVcl create

[gandime]

Hi,
ich möchte mit NonVcl einen CLientsocket auf machen aber es will nicht so recht...
Code:

Delphi-Quellcode:

type
TCsThread = class
    constructor Create;
    destructor destroy; override;
    procedure DoOnError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure DoOnConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure DoOnDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure DoOnRead(Sender: TObject;
      Socket: TCustomWinSocket);
    private
    Cs: Tclientsocket;
  end;

var
  Socket:TCsThread;

destructor TCsThread.Destroy;
begin
  cs.free;
end;

constructor TCsThread.Create;
begin
  inherited Create;
  Cs:=TClientSocket.Create(nil);//Fehler
  cs.OnRead:=DoOnRead;
  cs.OnDisconnect:=DoOnDisconnect;
  cs.OnConnect:=DoOnConnect;
  cs.OnError:=DoOnError;
end;

...blabla...

begin
  socket.Create;

end;

Fehler:

Zitat:

Erste Gelegenheit für Exception bei $7C812AEB. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 004792F0 in Modul 'NonVCL.exe'. Schreiben von Adresse 00000004'. Prozess NonVCL.exe (2860)

was mache ich falsch?


mfg

gandime