Procedure für gesamtes Programm

[GLaforge]

Hi,
hab mal ne Frage bezüglich Proceduren und ihre Anwendbarkeit. Ich möcht zum Beispiel folgende Procedure in der MainUnit einbinden.

Delphi-Quellcode:

procedure CenterForm(f: TForm);
begin
 f.Left:= (Screen.Width - f.Width) div 2;
 f.Top:= (Screen.Height - f.Height) div 2;
end;

Diese Procedure zentriert das Formular. Dies soll aber für mehrere Formulare in dem Programm möglich sein ohne das ich in jeder einzelnen Unit diese CenterForm-Procedure einbinden muss. Wie kann ich das möglichst einfach realisieren. Bin für jede Antwort dankbar.

cu