[josepicd]

Perdonad lo mal que me explico, pero no se como expresarme.

A ver si alguien me puede orientar para hacerlo de la mejor forma posible

Ya se que se puede unir todo dentro del form, y no es exactamente este caso, es solo un ejemplo simplificado. La parte de comunicacion debe ir en una unit independiente porque esa comunicacion aqui puede ser por socket, en otro caso puede ser por 232, etc y cambiando la unit de comunicacion deberia seguir todo funcionando

Tengo un Tform1 con un TLabel que en su caption debera poner "Connectado" o "Desconectado"
En otro lado tengo una Unit con un procedimiento tal cual

¿La pregunta es como asigno el onconnect y el ondisconnect?

Código Delphi [-]
Unit Srv;

procedure createsrv;
begin
  srv := TServerSocket.Create( nil);
  srv.Port := 1000;
  srv.Active := true;
  srv.OnClientConnect    :=  doconnect;
  srv.OnClientDisconnect := dodisconnect;
end;

procedure doconnect;
begin
  lconnect := true;
end;

procedure dodisconnect;
begin
  lconnect := false;
end;



Unit TForm

// Al crear el form abrimos la conexion
FormCreate 
Begin
 .....
  createsrv;
 .....
End;


// Mediante un timer voy mirando el estado de la conexion
Procedure OnTimer
begin
  if  lconnect then label1.caption := 'conectado'
                  else label1.caption := 'desconectado';
end;