Unit-Name 'Windows' kann nicht aufgelöst werden

[Flo.Hoe]

Die Datei existiert und in anderen Anwendungen funktioniert auch alles einwandfrei.
Außerdem wurde nach einem Neustart keine Fehlermeldung mehr angezeigt.
Einige Ereignisse funzen aber immer noch nicht.



Hier der Quelltext

Delphi-Quellcode:

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,u1,u2,u3,u4, u5, StdCtrls;

type
  TMainForm = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;

      procedure FormCreate(Sender: TObject);
      Procedure ...;
      procedure Image1Click(Sender: TObject);
      Procedure ...;
      procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }

  end;

var
  MainForm: TMainForm;

implementation



{$R *.dfm}


procedure TMainForm.FormCreate(Sender: TObject);
begin
    ...
end;



procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  close ;  //funktioniert nicht
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
...
end;

Procedure TMainForm. ...;
begin
...
end;



procedure TMainForm.Image1Click(Sender: TObject);
begin
...
end;



Procedure TMainForm.  ...;
begin
...
end;



end.

und die zweite Form

Delphi-Quellcode:

unit uFMenue;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFMenue = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FMenue: TFMenue;

implementation
 uses Mainunit;
{$R *.dfm}

end.