ClientSocket в приложении без формы

[Gambler]

Привет всем! Есть такая задача: клиент постоянно конектится к серверу, но сервер большую часть времени в оффлайн. Так что надо обработать ошибки коннекта (10061). В приложениях с формой делал это так:

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ErrorCode:=0;
end;

но формы нет. Пробовал так:

procedure CSError(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ErrorCode:=0;
end;
var
  CS: TClientSocket;
begin
CS:=TClientSocket.Create(nil);
@CS.OnError:=@CSError;

Код ошибки получаю, но изменить естественно не могу. Как поступить?

[raxp]

немного не понял, почему не...

CS.OnError:= CSError;

[Gambler]

CS.OnError - тип TSocketNotifyEvent, а CSError - процедура. Так что передаю по адресам. Иначе даже не компильнется.

[raxp]

если загнать в класс, то компильнется

[Gambler]

type
  TCSEvents = class
    class procedure CSError(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
  end; 

class procedure TCSEvents.CSError(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ErrorCode:=0;
end;

begin
CS:=TClientSocket.Create(nil);
CS.OnError:=TCSEvents.CSError;
end.

Сам разобрался. Вот так должно быть.

[raxp]

ну вот видите