Kan ikke kalde procedure

Jeg har 2 funktion på min form 1:

type
  TMainForm = class(TForm)
  ...
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure Savefile( DirectoryToFile: String; SearchDirectory: String;  SearchRec: TSearchRec );
    Function Findfiles( Directory: String; FilterFiles: String; IncludeSubDir: Boolean; SaveDirectoryToFile: String ): Integer;
  end;

var
  MainForm: TMainForm;

implementation

uses MakeKildeDatabaseFormUnit1;

{$R *.dfm}

// Mine Funktioner //

  Procedure Savefile( DirectoryToFile: String; SearchDirectory: String;  SearchRec: TSearchRec );
  begin
  ...
  end; 

  Function Findfiles( Directory: String; FilterFiles: String; IncludeSubDir: Boolean; SaveDirectoryToFile: String ): Integer;
  begin
  ...
  end;

// Mine Funktioner //

De virker når jeg kalder dem, fra form 1.
problemmet er at de ikke kan kalde dem fra form 2. Jeg har bedt den om at bruge unit filen, hvor de ligger i.

//dl