Aufruf von einem Procedure in Project Source

[thomas2009]

Hi

obwohl die Funktion (Procedure) da ist, wird trotzdem als undefiniert bezeichnet !

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}
begin
  if TForm2.Execute then
  begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);

  if Paramstr(1) = 'hidded' then HideForms // Fehler hier: Undefinierter Hideforms
  else
  Application.Run;

  end
  else
  begin
    Application.MessageBox('Passwort falsch', 'Noch einmal versuchen');
  end;


procedure HideForms;
begin
Application.ShowMainForm := False;{form1}
Form3.Hide;
//form2 existiert nicht mehr
  Application.Run;
end;


end.