Fehler mit Socket komponente

[1aa]

sorry vergessen mit zu posten...

Delphi-Quellcode:

destructor TClient.Destroy;
begin
  //Timer abklemmen
  TimerCon.Enabled := false;
  TimerCon.OnTimer := nil;
  TimerCon.Free;
.....
  //Socket abklemmen
  if CS1.Active then Cs1.Close;
  CS1.OnConnect := nil;
  CS1.OnDisconnect := nil;
  CS1.OnError := nil;
  CS1.OnRead := nil;
  Cs1.Free;
....    
  inherited;
end;