Unit zu Unit.

[thomasvonmuenster1]

Ich möchte auf eine procedure einer anderen Unit zugreifen.
unit DbDatesF;

Delphi-Quellcode:

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  If (PageControl1.ActivePageIndex = 0) and (Edit3.Text <> 'key') Then AllowChange := False;
end;

Möchte gerne auch von meiner unit help das PageControll freigeben.
Meine versuche sind alle gescheittert.