1 button 2 Funktionen...

[TheAn00bis]

Warum denn nicht einfach:

Delphi-Quellcode:

procedure TForm1.Button1Click;
begin
if a then Prozedur1 else Prozedur2
end;