function einer anderen unit aufrufen; 2 units zusammenlegen;

[Jandalf]

Hallo Community,

ich bin neu hier und meine delphi kenntisse beruhen auf 1 jahr schulinformatik...
ich habe schon ein bisschen nach meinem problem gegooglet aber nichts gefunden was funktioniert hat.

Also ich würde gerne eine function in der einen unit in der anderen unit aufrufen. am schönsten wäre es noch, wenn man beide units zusammenlegen könnte, weil der code später ausgedruckt und durchgelesen werden soll, aber es würde schon reichen wenn ich diese function aufrufen kann. zur info: delphi hat die 2. unit automatisch erstellt, als ich eine 2. form hinzugefügt habe.

Unit1:

Delphi-Quellcode:

// HAUPTFENSTER

unit Unit1;

interface
 uses
  Windows, Messages, SysUtils, Graphics, Forms, Dialogs, ShellApi, TlHelp32,
  Classes, Controls, StdCtrls, ExtCtrls;
 type
  TForm1 = class(TForm)
   Button1: TButton;
   Panel1: TPanel;
   StatusPanel: TPanel;
   Button2: TButton;
   ComboBox1: TComboBox;
   ComboBox2: TComboBox;
   Label1: TLabel;
   Label2: TLabel;
   Button3: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure ComboBox1Enter(Sender: TObject);
   procedure ComboBox2Enter(Sender: TObject);
   procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   procedure Button3Click(Sender: TObject);
   function processExists(exeFileName: string): Boolean;
  end;

var Form1: TForm1;
const Laufwerk = 'C';

implementation
uses Unit2;
{$R *.dfm}

//Funktion zum Überprüfen ob ein Prozess existiert
function processExists(exeFileName: string): Boolean;
var fortfahren: BOOL; prozesse: THandle; wert: TProcessEntry32;
begin
 prozesse := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 wert.dwSize := SizeOf(wert);
 fortfahren := Process32First(prozesse, wert);
 Result := False;
 while fortfahren do
  begin
   if wert.szExeFile = ExeFileName then
    begin
     Result := True;
    end;
   fortfahren := Process32Next(prozesse, wert);
  end;
 CloseHandle(Prozesse);
end;

//Beim Schließen oder Beenden wird der Überprüfungsdialog gestartet
procedure TForm1.Button2Click(Sender: TObject);
begin
 close;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose:=false;
 F_Ueberpruefungsdialog.ShowModal;
end;

end.

Unit2:

Delphi-Quellcode:

// Überprüfungsdialog

unit Unit2;

interface
 uses
  Windows, Messages, SysUtils, Graphics, Forms, Dialogs, ShellApi, TlHelp32,
  Classes, Controls, StdCtrls, ExtCtrls;
 type
  TF_Ueberpruefungsdialog = class(TForm)
   Label1: TLabel;
   B_beenden: TButton;
   B_fortsetzten: TButton;
   procedure B_beendenClick(Sender: TObject);
   procedure B_fortsetztenClick(Sender: TObject);
end;

var F_Ueberpruefungsdialog: TF_Ueberpruefungsdialog;

implementation
uses Unit1;
{$R *.dfm}

//Stoppt Server und beendet das Programm
procedure TF_Ueberpruefungsdialog.B_beendenClick(Sender: TObject);
begin
 if [COLOR="Red"]processExists('httpd.exe')[/COLOR] = true then
  begin
   ShellExecute(Application.Handle,'open','stop.bat','',Laufwerk + ':\xampp',SW_SHOWMINIMIZED);
   Application.Terminate;
  end;
end;

//Überprüfungsdialog schließen, Programm fortsetzen
procedure TF_Ueberpruefungsdialog.B_fortsetztenClick(Sender: TObject);
begin
 F_Ueberpruefungsdialog.Close;
end;

end.

Beim rot markierten kommt der fehler:
[Error] Unit2.pas(27): Undeclared identifier: 'processExists'

Danke für eure Hilfe