Highscore für Spiel

[Super_Chemiker]

Hallo DP
ich versuche mich da an einem HighScore, aber es will nicht klappen!!!
welche komponente ist dafür geeignet? ich habs mit TRichEdit probiert:

Delphi-Quellcode:

procedure TForm1.OKClick(Sender: TObject);
begin
     Name := Nam.Text;
     High.Text := HighA.Text;
     HighN.Text := HighNA.Text;
     if StrToInt(High.Strings[0]) > StrToInt(Punkte.Caption) then
     begin
        if StrToInt(High.Strings[1]) > StrToInt(Punkte.Caption) then
           begin
              if StrToInt(High.Strings[2]) > StrToInt(Punkte.Caption) then
                 begin
                   
                    if StrToInt(High.Strings[3]) > StrToInt(Punkte.Caption) then
                       begin
                         
                          if StrToInt(High.Strings[4]) > StrToInt(Punkte.Caption) then
                             begin
                               if StrToInt(High.Strings[5]) > StrToInt(Punkte.Caption) then
                                  begin
                                   Topp := 5;
                             end
                             else
                               Topp := 4;
                       end
                       else
                       Topp := 3;
                  end
                  else
                  Topp := 2;
           end
           else
           Topp := 1;
     end
     else
     Topp := 0;
     end;            
     HighNA.Lines.Insert(Topp, Name);
     HighA.Lines.Insert(Topp, Punkte.Caption);
     HighA.Lines.Delete(5);
     HighNA.Lines.Delete(5);
     OK.Enabled := false;
end;

• Punkt, Topp: Integer;
• Name: String;
• High, HighN: TStringList;
• ok = button
• Higha = richedit
• Highna = richedit
  

vielen Dank im Vorraus