Funktion in .dll aufrufen?

[freak4fun]

Delphi-Quellcode:

uses
  SysUtils,
  Classes;

{$R *.res}

function Funktion1(Zahl: Integer): Boolean; stdcall;
begin
  if Funktion2(1) then <== Undiclared Identifayer: Funktion2
    Result := True;
end;

exports
  Funktion1;

function Funktion2(Zahl: Integer): Boolean; stdcall;
begin
  if Zahl = 1 then
    Result := true
  else
    Result := false;
end;

Was mach ich falsch?