[marcoszorrilla]

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.