Distinguir el objeto sender en un evento

[[Lepe]]

Yo he entendido el asunto de otra forma, no sé si servirá:

Código Delphi [-]
 procedure TForm1.Evento_Al_recibir(Sender: TObject; Count: Integer);
var Encontrado :Boolean;
begin
  for i:= low(Modems) to High(Modems) do
  begin
    Encontrado := TVaCOMM(Sender) = Modems[i];
    if Encontrado then Break;
  end;
  If Encontrado then
    ShowMessage('Encontrado en el índice del array Modem: '+IntTostr(i));
end;

Saludos