Verwendung einer Procedure in einer anderen Unit

[chrio89]

hm das hab ich doch eigentlich gemacht oder? Also ich liefere Euch hier mal Quelltextausschnitte:

Unit1 erthält die Prozedur, Unit3 soll die Prozedur Funktionsbrechnung aufrufen

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, XPMan,ComCtrls,JPEG, Unit2;

[...]
    

    private
    { Private-Deklarationen }


  public
    { Public-Deklarationen }
    procedure Funktionsberechnung();
    end;

implementation
 
{$R *.dfm}

procedure Funktionsberechnung;
begin
ShowMessage('test');
end;

Delphi-Quellcode:

unit Unit3;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, Unit1;

type
  TOKBottomDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  OKBottomDlg: TOKBottomDlg;

implementation

{$R *.dfm}


procedure TOKBottomDlg.CancelBtnClick(Sender: TObject);
begin
status:=0;
Funktionsberechnung();
close();
end;

(Korrekturen erwünscht)