Hola.
Pues en vista de que no hay creo yo casos similares, le segui buscando y di con la respuesta y era algo sencillo,
pero a falta de conocimiento entra la desesperacion.
Bueno ahora si puedo ver los mensajes sin ningun problema en el servidor con el metodo Show o ShowModal de mi formulario.
Pongo el codigo que cambio del primer mensaje que puse:
Código Delphi
[-] If CommBlock.NombreReceptor = 'SERVIDOR' Then
Begin Paquete:=CommBlock;
AThread.Synchronize(MostrarMensaje); esto es lo que cambio
End
al procedimiento de mostrarmensaje solo le quite el parametro:
Código Delphi
[-]Procedure TFrm_Principal.MostrarMensaje;
Begin
Frm_Mensaje.Label1.Caption:= Paquete.NombreUsuario;
Frm_Mensaje.cxMemo1.Lines.Add('Mensaje: ' + Paquete.Msg);
Frm_Mensaje.ShowModal;
End;
Y tube que usar
AThread.Synchronize ya lo habia intentado pero el procedimiento de MandarMensaje tenia parametro y asi no se puede mandaba este error:
[Error] Principal.pas(426): There is no overloaded version of 'Synchronize' that can be called with these arguments
lo quite y jejeje Papitas...