Funcion generica para crear varios forms

[[Delphius]]

Hola Carlos Arevalo,
No tengo Delphi a mano, pero creo que el error está aquí:

Código Delphi [-]
function xform(formsender: Tform; Sender: TObject): Boolean;
begin
 formsender:=Tform(formsender).Create(self);
 Tform(formsender).showmodal; // <- ¿Esto es correcto... Para mi que no?
 result:=true;
end;

Creo que debería ser así:

Código Delphi [-]
fuction xForm(FormSender: TForm; Sender: TObject): boolean;
begin
  FormSender := TForm.Create(Application);
  result := FormSender.ShowModal = mrOK;
end;

Ahora yo me pregunto ¿Y para que el parámetro sender?
No tengo Delphi a mano... pero que va.

Saludos,