Übergabe von Parameter an Proceduren in unterschiedlichen Units

[Ykcim]

Hallo Zusammen,

ich bin gerade auf dünnem Eis, weil ich mich mit dieser Art der Zuweisung nicht gut auskenne. Daher bitte ich Euch um Hilfe.
Das Problem ist, dass ich einer Procedure Parameter aus einer anderen Übergeben möchte. Die beiden Proceduren sind nicht in der gleichen Unit, daher gestaltet sich der Aufruf wie folgt:

Auslösende Unit:

Delphi-Quellcode:

type
   TEvent = procedure(Sender: TObject) of object;
   TFrame_Uebersicht = class(TFrame)
...


private
      { Private-Deklarationen }

      FOnFilter: TEvent;
   public
      { Public-Deklarationen }
      property OnFilter: TEvent read FOnFilter write FOnFilter;
   end;

implementation

{$R *.dfm}

procedure TFrame_Uebersicht.Grid_UebersichtClickCell(Sender: TObject; ARow,
  ACol: Integer);
begin
   if (Assigned(FOnFilter)) and (ARow=1) then
      FOnFilter(Grid_Uebersicht); //An dieser Stelle möchte ich die Parameter ACol und ARow mit übergeben.
end;

In meiner Hauptunit sieht das Ganze dann so aus:

Delphi-Quellcode:

procedure TMain.FormCreate(Sender: TObject);
begin
   Frame_Uebersicht1.OnFilter:= Filter_Actions;
end;

procedure TMain.Filter_Actions(Sender: TObject);
var   SG: TAdvStringGrid;
begin
   if Sender is TAdvStringGrid then begin
      SG:= Sender as TAdvStringGrid;
      Set_Filter(SG);  //An diese Procedure möchte ich die Variablen ACol und ARow übergeben
      Apply_Filter(SG);
   end;
end;

Ich hoffe, dass das Problem mit der Kommentierung im Code nachvollziehbar ist.

Würde mich freuen, wenn jemand mir da die Zusammenhänge und Möglichkeiten zeigen würde.

Vielen Dank
Patrick