Tengo varios forms creados y quiero abrirlos con una funcion generica ubicada en una unit que cree para colocar todos los procedimientos genericos que utilizan los forms en mi aplicacion pero por alguna razon que desconosco la funcion me da un error cuando la ejecuto desde la unit que cree pero si la inserto en un form funciona perfectamente.
Cual puede ser el problema?
Código Delphi
[-]
unit unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms;
function xform(formsender: Tform; Sender: TObject): Boolean;
implementation
function xform(formsender: Tform; Sender: TObject): Boolean;
begin
formsender:=Tform(formsender).Create(self);
Tform(formsender).showmodal;
result:=true;
end;
end.
Este es el error:
Undeclared identifier: 'Self'
Uso Delphi 7
Muchas gracias