Form als Parameter übergeben?

[FBrust]

Hallo,

ich habe in meinem Programm diverse Berichte, deren Berichtskopf immer gleich aussieht. Zur Vereinfachung möchte ich eine Prozedur schreiben, die diese Formatierungen übernimmt. Der Prozedur möchte ich den Namen des Formulars mit der Quickreport-Komponente übergeben und sie macht dann den Rest.

Also etwa so:

Delphi-Quellcode:

procedure  PrepareReport(frmRep: TForm);
var strFile: string;
begin
    with frmRep do begin
      QRShape1.Brush.Color := GetColor('RepUp');
      QRShape1.Pen.Color := GetColor('RepUp');
      QRShape2.Brush.Color := GetColor('RepDown');
      QRShape2.Pen.Color := GetColor('RepDown');
    end;
end;

Allerdings wird beim Kompilieren "QRShape1" als undefinierter Bezeichner angemeckert, vermutlich weil frmRep kein Formular hinterlegt ist.

Hat vielleicht jemand einen Tip, wie ich das bewerstelligen kann?

Grüße
Frank