Procedure beenden

[Fussball-Robby]

Zitat von Forlan:

Delphi-Quellcode:

if pos = 1 then 
begin
  button1.Top :=  120;
  button1.Left := 8;
  pos := 2;
  exit;
end;

so sollte es auch besser aussehen...[/Edit]

Und noch besser:

Delphi-Quellcode:

case pos of
  1:begin
      button1.Top :=  120;
      button1.Left := 8;
      pos := 2;
      exit;
    end;
  2:begin
      //usw..

(Wie Dax bereits sagte)