Variablen vergleichen

[ulrich72]

Hallo,

ich bin mal wieder an einer einfachen Frage gescheitert. Ein kleines Programm soll meinen jüngsten Enkel in Mathematik motivieren. "Computer ist viel besser als Buch" (O-Ton).
Die Addition ist kein Hindernis, aber bei der Subtraktion komme ich nicht weiter. Da in der ersten Klasse negative Zahlen nicht bekannt sind muss der Fall Minuend < Subtrahend irgendwie ausgeschlossen werden.
Bisjetzt bin ich soweit:

Delphi-Quellcode:

procedure TForm1.btnSubtraktionClick(Sender: TObject);
begin
  randomize;                                       // Initialisierung von Random
  edtMinuend.Caption := IntToStr(Random(10));
  edtSubtrahend.Caption := IntToStr(Random(10));
  edtDifferenz.Caption := '';
  lblHinweis.color := clNone;
end;

procedure TForm1.btnPruefClick(Sender: TObject);
var
  a, b, c: Integer;
begin
  a := StrToInt(edtMinuend.Text);
  b := StrToInt(edtSubtrahend.Text);
  // hier sollte gprüft werden a< b ist
  // und dann die procedure TForm1.btnSubtraktionClick(Sender: TObject)
  // erneut ausgeführt wird, bis a >= b ist  (repeat until?)
  c := a - b;
  if edtDifferenz.Caption = IntToStr(c)
  then
  begin
    lblHinweis.Visible := True;
    lblHinweis.Color := clLime;
  end
  else
  begin
    lblHinweis.Visible := True;
    lblHinweis.Color := clRed;
  end;
end;

Die Kommentare habe ich für mich eingefügt. Sicher gibt es da eine ganz simple Lösung.
Helft mir mal bitte auf die Sprünge!

vG
Ulrich