Also mach es dir einfach indem du
Delphi-Quellcode:
private
modus: integer;
procedure form1.FormCreate(Sender: Tobject);
begin
modus := 0;
end;
procedure form1.Button1Click(Sender: Tobject);
begin
case modus of
0:
1:
2:
3:
end;
end;
Das sollte dir als ansatz reichen...