Werte in Stringgrid auswerten?

[alanblack]

Hallo Leute,

Ich habe ein Problem. Ich hoffe ich kann es so beschreiben dass ihr mich auch versteht.
Also:
Ich arbeite gerade an einen vokabeltrainer, mit dem man seine zu lernenden vokabeln
eintragen kann und dann auch als training sich abfragen lassen kann. Das habe ich bereits
fertig und möchte dass am schluss eine "Bewertung" kommt (nachdem alle eingetragenden vokabeln
abgefragt worden sind) Diese Bewertung sollte folgendes enthalten: "Vokabeln insgesamt"
"Richtig übersetzte Vokabeln" und "falsch übersetzte vokabeln" Dann noch ein Label
mit "Du hast zu __% richtig übersetzt".
Leider habe ich keinen Schimmer wie ich das machen könnte.

Hier einmal einen Teil Code von der Abfrage:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
//false.pas -> Label7 'Deine Eingabe'
Form6.Label7.Caption := Edit1.Text;
Form6.Label5.Caption := question;
Form6.Label6.Caption := answer;
// richtige eingabe
If UpperCase(answer) = UpperCase(Edit1.Text) Then
//sonst
  else
    Form6.ShowModal;
  answer :=   Form1.StringGrid1.Cells[1,RecNo];
  // question bekommt einen anderen Wert in der Zeile
  question := Form1.StringGrid1.Cells[0,RecNo];
  LblWort.Caption := question;
  inc(RecNo);
  If RecNo >= Form1.StringGrid1.RowCount Then
    RecNo := 1;

end;

procedure TForm3.FormCreate(Sender: TObject);
begin
//beim starten der form...
question := Form1.StringGrid1.Cells[0,RecNo];
  LblWort.Caption := question;
  
  inc(RecNo);
  If RecNo >= Form1.StringGrid1.RowCount Then
    RecNo := 1;
RecNo := 1;

Wenn Ihr Ideen habt, wie ich das machen könnte wäre ich sehr dankbar über einen post von euch

Mit freundlichen Grüßen

alanblack