Zobrazeni ErrorMessage – Delphi – Fórum – Programujte.com

Mám clientsocket s procedurou onError a chci aby se při chybe nezobrazila zprava, ale aby se errorzprava vepsala to mema. Problem je v tom ze nevim jak ziskat error zpravu. Predem diky.

Predstavuju si to takhle:

procedure TForm1.ClientSocket1Error(Sender: TObject;

  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

  var ErrorCode: Integer);

begin

  memo1.lines.add(ErrorMessage);

  errorcode := 0;

end;

SysErrorMessage

Funguje diky