Bitte beachten!
Code:
[DELPHI]
procedure foo;
begin
end;
[/DELPHI] // <<--- "/" nicht vergessen
Vielleicht eher die Verwendung von
Delphi-Quellcode:
CASE XY of
1 : A := B;
end; // of case
oder erstelle die Shapes in einem Array dann brauchst Du die Case auch nicht...
und
Form1.Label2.caption:= IntToStr(StrToInt(Form1.Label2.Caption)-1);
Mach aus der Procedure eine Procedure der Form...
Dann keine Datenhaltung von integer in einem String - Dafür gibt es Variablen
Delphi-Quellcode:
var
Whatever : Integer;
...
Label1.Caption := inttostr(Pred(Whatever));
Delphi-Quellcode:
Repeat
// Whatever
Until;
Ohne
begin
&
end
Wenn Du das alles berücksichtigt hast, hänge und das Projekt an den Thread dran, dann können wir die besser helfen...