função para localizar cliente conectado

oi,

seguindo algumas dicas eu to conseguindo fazer um gerenciador de conexões,eu peguei esta função que será usada para saber a posição do cliente conectado e adaptei oa meu prog.

Function TForm1.LocalizaCliente(Cli : Pointer):Integer;
Begin

Result := IDConexoes.IndexOf(Cli);
End;

porém, acho que fiz algo errado, pois dá estes erros:

[Error] unit_sig.pas(45): Undeclared identifier: 'LocalizaCliente'

[Error] unit_sig.pas(45): ';' expected but '(' found

[Error] unit_sig.pas(47): Undeclared identifier: 'Result'

[Error] unit_sig.pas(47): Missing operator or semicolon

[Error] unit_sig.pas(84): Undeclared identifier: 'LocalizaCliente'

[Fatal Error] proje_siglan.dpr(6): Could not compile used unit 'unit_sig.pas'

para criar a função eu tenho que declarar algo antes?

do jeito que estava eu só alterei os nomes.

esta função será usada no evento onclientread de um server socket.

vejam:

Var Msg : String;
IDCli : integer;
HoraStr : String;

begin Msg := socket.ReceiveText; If Msg = 'HORA?' then Begin

 IDCli := LocalizaCliente(Socket.Data);
 HoraStr := FormatDateTime('HH:mm:ss',Now);

If (IDCli >= 0) then

 Servidor.Socket.Connections[IDCli].SendText(HoraStr);
end;
end;

percebi que a função não é identificada.

o que está errado?

desde já agradeço.