Pues te pudieras definir un constructor para tu form4
Código Delphi
[-]
Constructor CreateDiferente(AOwner: TComponent;FormLLama : Byte);
Implementation
Constructor TForm4.CreateDiferente(AOwner: TComponent;FormLLama : Byte);
begin
Inherited Create (AOwner);
Case FormLLama of
1:'Hago esto';
2:'Hago lo otro'
3:'Hago lo de más allá'
end;
showmodal;
end;
with TForm4.CreateDiferente(Application,1) do
free;
Espero que esto te guste, y sea lo que buscas.
Saludos Yusnerqui