TClientSocket: Problem bei Eventzuweisung

[Nils_13]

Delphi-Quellcode:

var Client : TClient;
    line   : String;
begin
  WriteLn('blabla');

  Client := TClient.Create;

  ReadLn(line);
  if line = '...' then
  begin
    // ...
  end else
  begin
    Client.Free;
    Exit;
  end;
end.