[samantha jones]

procedure myshowmodal(aClass:TclassForm; aForm:TForm);
begin
if not assigned(aForm) then
aForm:=aClass.Create(Self);
try
aForm.Showmodal;
finally
freeandnil(aForm);
end;
end;

Espero te sirva