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;