[PhoeniX]

а что-то вроде стандартных Sender-ов оформить не судьба? вот (как вариант):

Код:

//фунцкия
function MyFunc(param1:integer;....;senderfunc:string):resulttype;
begin
  if senderfunc='Button1Click' then begin
    //.....
  end else if senderfunc='...' then begin
    //.....
  end else if senderfunc='...' then begin
    //.....
  end else if senderfunc='...' then begin
    //.....
  end;
end;

//вызов функции
procedure TForm1.Button1Click(Sender: TObject);
begin
  //.....
  MyFunc(param1,param2,...,paramN,'Button1Click');
  //.....
end;