Procedure ....(Var Sender : TObject....)
begin
  case TvaComm(Sender).tag of
  ....
end;
위의 예처럼 Object마다 구별(원하는)할 수 있는 정보가 있다면
이런식으로 분기하면 되겠고요
만약 그것 가지고는 알 수 가 없다면
TvaCustomComm  = class(TvaComm)
Private
  Data : Pointer;
end;
이런식으로 TvaComm에서 상속해서 원하는 구별할수 있는
Property를 넣어서 만들어서 쓰면 되겠죠

예);

Type
TMachineInfo = record
   Name : string;
   Serial : stirng;
   .....
end;

TvaCustomComm  = class(TvaComm)
Private
  Data : Pointer;
end;

TForm1 = class(TForm)
....
Private
  mMachine : array of TMachineInfo;
end;

Implement
...
Procedure TForm1.SetSerialinfo;
var i : integer;
begin
  for i := 0 to high(mMachine ) do
  begin
     with TvaCustomComm.Create do
     begin
        data := @mMachine[i];
        someevent := UserEvent;
         ........
     end;
  end;
end;

이벤트 처리할때
Procedure TForm1.UserEvent(Var Sender : TObject....)
begin
if TMachineInfo(TvaComm(Sender).data^).name = 'some' then
  ....
end;