Nutzer zwingen etwas zu wiederholen(mit If)?

[Haxx0r79]

Hey Leute, ich steh vor dem Problem:


Ich hab ein Bildverkleinerungsprogramm gemacht. Ich habs soweit geschafft einen OpenDialog einzubauen.
Doch nun möchte ich, wenn der Nutzer nichts in die 2 EditBoxen eingibt(die die neuen X und Y Größen der Bilder haben sollen),
er so oft gezwungen wird etwas einzugeben, bis es eine Zahl ist.

Mein Code sieht bisher so aus:

Delphi-Quellcode:

var
  TempJPeg: TJPegImage;
  TempBitmap: TBitmap;
  x,y:string;
begin
  TempJPeg:=TJPegImage.Create;
  If OpenPictureDialog1.Execute
  then  x:= OpenPictureDialog1.Filename;
  TempJPeg.LoadFromFile(x);
  TempBitmap:=TBitmap.Create;
  TempBitmap.PixelFormat:=pf24Bit;

  TempBitmap.Width :=StrToInt(GrX.Text);
  TempBitmap.Height :=StrToInt(GrY.Text);
  If (GrX.Text='') and (GrY.Text='')
  then
  ShowMessage('Gibt etwas ein.');
  TempBitmap.Canvas.StretchDraw(Rect(0,0,TempBitmap.Width,TempBitmap.Height),TempJPeg);

  TempJPeg.Assign(TempBitmap);
  If SaveDialog1.Execute then y:=SaveDialog1.Filename;
  TempJPeg.SaveToFile(y);
  Showmessage('Ihr Bild wurde gespeichert!');

  TempBitmap.Free;
  TempJPeg.Free;

Er meckert auch, das GrX und GrY keine Integerzahlen sind und bricht das ganze Programm ab.


Wie könnt ich das beheben und den Nutzer zwingen die Eingabe zu wiederholen, bis er was eingibt?


Freue mich auf Hilfe!!

Mfg

P.s. bin ein Delphi Anfänger