События компонентов

[Hottabych]

Помогите, как заставить работать следующий код:

unit uFunctions;

interface

uses
ScktComp;

function FindServer: boolean;

var
cs1: TClientSocket;

implementation
uses
fmMain;

function FindServer: boolean;
begin
Result := False;
cs1 := TClientSocket.Create(Form1);
cs1.OnConnect := сConnect;            //Здесь "Несовместимость типов"
cs1.Port := 777;
cs1.Host := Form1.edIp.Text;
cs1.Active := True;
if cs1.Socket.Connected then
Result := True;
end;

procedure cConnect;
begin
...
end

[Alter]

функция должна иметь те же параметры, что и событие компонента:

procedure cConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
 {...}
end