Prozedur bei falscher Eingabe anhalten

[Natta]

Hi!

Bin ein ziemlicher Delphi Laie, und hab folgende Frage: Ich möchte ein Programm schreiben, bei dem nur Eingaben in einem bestimmten Zahlenbereich gemacht werden dürfen, z.B. zwischen 1 und 49. Wenn eine falsche eingabe gemacht wird soll eine dementsprechende Nachricht erscheinen und die Prozedur angehalten werden.

Was ich bis jetzt habe ist folgendes:
...
if Zahl[i]=Zahl[j] then
begin
ShowMessage('Gleiche Zahlen, bitte ändern');

{Und hier müsste jetzt noch eine Anweisung hin mit der die Prozedur angehalten wird und dem Anwender ermöglicht wird die Zahlen zu verändern.}

end;

Habt ihr eine Idee? Kenne nur die Anweisung halt, aber die schließt gleich das ganze Programm, das möchte ich nicht.

Wär echt super, wenn Ihr mir helfen könntet
LG Natta