Proceduren vergleichen

[thomasch]

Hallo,
ich habe bei mir folgendes Konstrukt:

Delphi-Quellcode:

Type
  TDofunction = procedure;

  TMeineFunction = class
    MProcedure     : TDofunction;

[...]
procedure foo;

begin

  Mainfunction:=TMeineFunction.Create;
  Mainfunction.MProcedure:=foo
[...]
 dosomething;
end;

procedure Bar;

begin

  Mainfunction:=TMeineFunction.Create;
  Mainfunction.MProcedure:=bar
[...]
  dosomething;
end;

Jetzt möchte ich irgendwie abfragen, welche Funkion irgendwann mal gestartet wurde. Leider funktioniert

Delphi-Quellcode:

procedure dosomething;
begin
  if Mainfunction.MProcedure=foo then
   [...]
  end;
end;

nicht. Ich könnte jetzt TMeineFunction um einen String erweitern - aber gibt es da nicht einen eleganteren Weg?

Danke schonmal


Thomasch