Variablen vergleichen

[Delphi.Narium]

Sinngemäß sowas?

Delphi-Quellcode:

procedure TForm1.btnSubtraktionClick(Sender: TObject);
var
  a : Integer;
  b : Integer;
begin
  (* randomize; *) // Initialisierung von Random nach FormCreate verschieben.
  Repeat
    a := Random(10);
    b := Random(10);
  until a >= b; // kann (theoretisch) eine Endlosschleife geben, wenn a immer zufällig kleiner b bleiben sollte.
  edtMinuend.Caption    := IntToStr(a);
  edtSubtrahend.Caption := IntToStr(b);
  edtDifferenz.Caption := '';
  lblHinweis.color := clNone;
end;

oder sowas?

Delphi-Quellcode:

procedure TForm1.btnSubtraktionClick(Sender: TObject);
var
  a : Integer;
  b : Integer;
  c : Integer;
begin
  (* randomize; *) // Initialisierung von Random nach FormCreate verschieben.
  a := Random(10);
  b := Random(10);
  if b > a then begin // dann werden a und b getauscht.
    c := a;
    a := b;
    b := c;
  end;
  edtMinuend.Caption    := IntToStr(a);
  edtSubtrahend.Caption := IntToStr(b);
  edtDifferenz.Caption := '';
  lblHinweis.color := clNone;
end;

oder eher sowas?

Delphi-Quellcode:

procedure TForm1.btnSubtraktionClick(Sender: TObject);
var
  a : Integer;
  b : Integer;
begin
  (* randomize; *) // Initialisierung von Random nach FormCreate verschieben.
  a := Random(10);
  b := Random(10 - a); // Zufallszahl aus dem Restbereich der zulässigen Zahlen.
  edtMinuend.Caption    := IntToStr(a);
  edtSubtrahend.Caption := IntToStr(b);
  edtDifferenz.Caption := '';
  lblHinweis.color := clNone;
end;