Procedure in anderer Form finden

[zeras]

Wenn ich deine Frage richtig verstehe, dann einfach eine Prozedur definieren und dann weiter unten zuweisen.

Delphi-Quellcode:

procedure Tfmain.Status2Click(Sender: TObject);
var
  MaIdx : Integer;
  MaName: String;

begin
  if (Sender is TImage) then begin
    MaIdx:= (Sender as TImage).Tag;
....




   Pic.OnClick := Status2Click;