[jhonny]

A ver, por lo que entiendo el objeto Sender debe ser un TVaCOMM y me supongo que esa clase TVaCOMM debe tener una manera de diferenciarlo de los demás, voy a asumir que esa manera de diferenciarse sea una propiedad llamada Posición de tipo Integer: en ese caso podria hacer un cast asi:

Código Delphi [-]
 
case TVaCOMM(Sender).Posicion do
begin
   //Y hacer lo que tengas que hacer...
end;

TVaCOMM(Sender).Posicion te mostraria la propiedad Posicion del objeto Sender.

Espero te haya comprendido bien y que esto te sirva de algo.