Probleme bei Highscore Gestaltung

[flugtier]

Ich verfasse den Artikel in diesem Thread, da es sich um die Highscore von meinem Spiel handelt.

Ich wollte folgendes Problem an die schlauen Mengen bringen.

Wie schaffe ich, dass ich bei der falschen Antwort die Punkte und den Namen in die Stringgrid Tabelle eintragen kann und wie binde ich mein Bubblesort ein?

Code:

 procedure TForm3.Button4Click(Sender: TObject);
begin
edit6.TEXt:=inttostr(Vergleichszahl);
 Zahl:=1;

     if
    Zahl=Vergleichszahl then begin showmessage('Richtig!!!  NARF');
        read(summefragen, frage);
        Edit1.text:=Frage.Frage;n:=strtoint(Edit7.Text); Edit7.Text:=inttostr(n+100);
   Edit2.text:=Frage.Antwort1;
   Edit3.text:=Frage.Antwort2;
   Edit4.text:=Frage.Antwort3;
   Edit5.text:=Frage.Antwort4;
   Vergleichszahl:=frage.richtig;
   Edit8.Text:=inttostr(n);Button4.Visible:=true; Button5.Visible:=true;
   Button6.Visible:=true; Button7.Visible:=true end
    else begin showmessage('Game Over.....')
; Form3.Visible:=false; Form4.Visible:=true;   end;
end;

Gilt auch für die anderen Buttons. Die Buttons sind in Form3

Code:

var
  Form4: TForm4;
   var i,j:integer;
    s:string;

procedure TForm4.FormCreate(Sender: TObject);
begin
with StringGrid1 do
  begin
    StringGrid1.Cells[0,0]:= 'Platzierung';
    StringGrid1.Cells[1,0]:= 'Spielername';
    StringGrid1.Cells[2,0]:= 'Punktezahl';
    StringGrid1.Cells[0,1]:= '1.Platz';
    StringGrid1.Cells[0,2]:= '2.Platz';
    StringGrid1.Cells[0,3]:= '3.Platz';
    StringGrid1.Cells[0,4]:= '4.Platz';
    StringGrid1.Cells[0,5]:= '5.Platz';
    StringGrid1.Cells[0,6]:= '6.Platz';
    StringGrid1.Cells[0,7]:= '7.Platz';
    StringGrid1.Cells[0,8]:= '8.Platz';
    StringGrid1.Cells[0,9]:= '9.Platz';
    StringGrid1.Cells[0,10]:= '10.Platz';

 for i:=1 to 10 do stringgrid1.cells[2,i]:=inttostr(i);
 for j:=1 to 10 do
   for i:=1 to 10 do
    begin
     if strtoint(stringgrid1.cells[2,i])>strtoint(stringgrid1.cells[2,i+1]) then  //Vergleich der Spalte i und ihrer nachfolgenden Spalte
      begin                                               //Bedingung erfüllt - Spalte 1 größer als Spalte 2
       s:=stringgrid1.cells[2,i];                         //Inhalt von Zelle 1 in Tauschvariable
       stringgrid1.cells[2,i]:=stringgrid1.cells[2,i+1];  //Inhalt von Zelle 2 in Zelle 1
       stringgrid1.cells[2,i+1]:=s;                       //Inhalt von Tauschvariable in Zelle 2
      end;
    end;
end;

Der dagt mir immer das ''' kein gültiger Integer Wert ist :wiejetzt:

Vielen Dank schon mal für die Hilfe im vorhinein.