Funktionsname herausfinden

[hitzi]

Hallo,

ist es irgendwie möglich den Funktionsnamen herauszufinden? So in der Art:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := Self.ClassName + ' ' + Self.???; //was muss statt den ??? hin damit in der Caption "TForm1 FormCreate" steht?
end;

Viele Grüße