TClientSocket führt keine Events aus

[Dyami]

Hallo zusammen,

ich habe das Problem, dass wenn ich meinen Text versenden möchte dass er nicht in das Event MyOnWrite rein kommt.
Der Server steht und sagt auch, dass meine Anwendung verbunden ist.

Ich hätte erwartet, dass das MyOnWrite Event ausgelöst wird, sobald RufeGewichtAb durch ist.

Was mache ich falsch?

Delphi-Quellcode:

procedure InitSocket;
begin
  FEingangsSocket                    := TClientSocket.Create(nil);
  FEingangsSocket.Host               := '127.0.0.1';
  FEingangsSocket.Port               := '8080';
  FEingangsSocket.Socket.ASyncStyles := [asRead, asWrite, asOOB, asAccept, asConnect, asClose];
  FEingangsSocket.OnRead             := MyOnRead;
  FEingangsSocket.OnWrite            := MyOnWrite;
  FEingangsSocket.ClientType         := ctBlocking;
  setsockopt(FEingangsSocket.Socket.SocketHandle, IPPROTO_TCP, TCP_NODELAY, PAnsiChar(1), 4);
  FEingangsSocket.Active := True;
  Application.ProcessMessages;
  RufeInGewichtAb;
end;

procedure MyOnRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  FPrüfText := string(FEingangsSocket.Socket.ReceiveText); //Text auslesen
end;

procedure MyOnWrite(Sender: TObject; Socket: TCustomWinSocket);
begin
  FTimer.Enabled := True; //Aktiviere einen Timer
end;

function RufeInGewichtAb(): boolean;
begin
  FEingangsSocket.Socket.SendText(WE                  WUMSCH    V');// Text-Senden
end;

Danke LG