File - New - Unit
Código Delphi
[-]
unit Globales;
interface
Var
MiGlobalvar:String;
Function MiFuncion(s:String):boolean;
implementation
Function MiFuncion(s:String):boolean;
begin
if s ='Hola' then
Result:=True
else
Result:=False;
end;
Llamada deste otro formulario, primero hay que incluir dicha Unit en el Uses del Formulario en cuestión.
Código Delphi
[-]
...
implementation
uses Globales;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
If Mifuncion('Hola') then
showMessage('Correcto')
else
ShowMessage('Incorrecto');
end;
end.
Un Saludo.