[[FGarcia]]

Bueno siguiendo tu ejemplo cambie algunas cositas y funciono!!

en la declaracion del procedimiento:

Código Delphi [-]
 
procedure OnAfterReceive(Com: TObject; Buffer: Pointer;
      Received: Cardinal);

// quedo asi: elimine el ON

procedure AfterReceive(Com: TObject; Buffer: Pointer;
      Received: Cardinal);

En la creacion del componente tambien elimine el ON

Código Delphi [-]
ComPort.OnAfterReceive := AfterReceive;

y en la implementacion del evento (procedimiento) elimine el comport de AfterReceive

Código Delphi [-]
procedure TdmNrComm.AfterReceive(Com: TObject; Buffer: Pointer;
  Received: Cardinal);
var i:integer;
    ch:AnsiChar;
begin
  //LO QUE TENGA QUE HACER

end;

Probe y todo funciona ok!!

Sin embargo aqui surge otra duda ¿que pasa si creo mas de un componente del mismo tipo? ¿como le asigno el procedimiento en forma individual a cada uno? En esta primera prueba le he asignado el procedure AfterReceive pero no he pasado ningun parametro ¿¿??

¿Alguna sugerencia? me gusta complicarme la vida