1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

...
procedure TForm2.FormCreate(Sender: TObject);
begin
     Form2.Caption:='*Charaktermenü*'; //Hier werden die Startwerte festgelegt...
     name:=Namen.text;                 //Namensvariable wird aus dem Editfeld gelesen
     punkt:=5;                         //[X-Punkte zur selbstständigen Verteilung der Anfangswerte]
     punkte.Caption:=IntTostr(punkt);  //Anfangswert "Attributpunkte" = 0 auf Panel ausgegeben
     Strke.Caption:=IntToStr(stark);   //Anfangswert "Stärke" = 0 auf Panel ausgegeben
     Treffsicher.Caption:=IntToStr(treff); //Anfangswert "Treffsicherheit" = 0 auf Panel ausgegeben
     Ausdauer.Caption:=IntToStr(ausd); //Anfangswert "Ausdauer" = 0 auf Panel ausgegeben

// Treffsicherheit und Ausdauer sind noch nicht Skillbar, Versuch erstmal nur auf Stärke beschränkt
end;

procedure TForm2.strupClick(Sender: TObject); //"+ Button" (ein Panel) um ein Punkt auf Stärke zu setzen
begin
     stark:=StrToInt(Strke.Caption); //aktuellen Stärkewert einlesen (ist ja 0)
     stark:=stark+1;                 // +1 zu Stärke
     Strke.Caption:=IntToStr(stark); //neuen Stärke-Wert auf dem Panel anzeigen
     punkt:=StrToInt(Punkte.Caption);//aktuelle Attributpunkte zum skillen (erstmal 5)
     punkt:=punkt-1;                 //beim clicken wird von der Gesammtpunktzahl einer abgezogen
     punkte.Caption:=IntTostr(punkt);//zu vergebende Punkte werden aktualisiert
end;
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm2.strupClick(Sender: TObject); //"+ Button" (ein Panel) um ein Punkt auf Stärke zu setzen   
begin
   if punkt>0 then
   begin   
     stark:=StrToInt(Strke.Caption); //aktuellen Stärkewert einlesen (ist ja 0)   
     stark:=stark+1;                 // +1 zu Stärke   
     Strke.Caption:=IntToStr(stark); //neuen Stärke-Wert auf dem Panel anzeigen   
     punkt:=StrToInt(Punkte.Caption);//aktuelle Attributpunkte zum skillen (erstmal 5)   
     punkt:=punkt-1;                 //beim clicken wird von der Gesammtpunktzahl einer abgezogen   
     punkte.Caption:=IntTostr(punkt);//zu vergebende Punkte werden aktualisiert   
   end
   else ShowMessage('Was soll der Mist!!! Wenn ich sage, du hast keine Punkte mehr, dann hast du keine mehr!!!');
end;					

1:
2:
3:
4:

if punkt > 0 then
   begin
   ...
   end;