[santana]

Si los objetos son del mismo tipo, por ejemplo buttons, yo también les asigno un tag y hago mas o menos esto

with (Sender as TBitbtn) do begin
case tag of
1: begin
   Application.CreateForm(TForm1, Form1);
   Form1.show;
   end;
2: begin
   Application.CreateForm(TForm2, Form2);
   Form2.show;
   end;
3: begin
   Application.CreateForm(TForm3, Form3);
   Form3.show;
   end;
end;