Die Unit, das unberechenbare Wesen

[aiguille]

Ich bitte um Nachsicht, aber
wenn ich das Problem so formulier, dann krieg ich
>undefinierter Bezeichner 'Meldung'<

Delphi-Quellcode:

unit unit1;

interface

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

type
    TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure Meldung;
begin
   ShowMessage('Meldung');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Meldung;
end;

end.

denn in unit2 steht:

Delphi-Quellcode:

unit unit2;

interface

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



implementation

uses unit1;

procedure XY;
begin
Meldung;
end;

end.