Проверка Edit, через val..

[r-tem]

ребят помогите, суть в том, что нужно для Edit'ов сделать проверку, не ввели ли случайно символы вместо цифр, причем только с помощью Val(таково требование препода). Как ни пробовал не получается.проверку нужно сделать через цикл repeat until.Сделал так,проверку выполняет, делает проверку, если некорректный ввод, выводит сообщение о ошибке, и на этом и останавливается, как сделать чтоб после этого прога возвращалась к началу?

procedure TForm1.N8Click(Sender: TObject);
const a=0.44;
b=2.28;
   var x,x1,l,x2,d:real;
       y:real;
       c1,c2,c3:integer;
       f:textfile;
       s1:string;
     begin
     repeat


   val(edit1.Text,x1,c1);
   val(edit2.Text,x2,c2);
   val(edit3.Text,d,c3);
   if c1<>0 then
if c2<>0 then
if c3<>0 then
 l:= messagedlg('ошибка',mterror,[mbOk],0);
 if l=mrOK then
 close;


 until (c1=0) and (c2=0) and (c3=0);

   x:=x1;


if checkbox3.Checked then
begin assignfile(f,'text.txt');
                      rewrite(f);end;


    s1:='   x'+'           '+'f(x)';
    memo1.Lines.Add('   x'+'           '+'f(x)');

   while x<=x2 do

     begin

     if (x>0) and (x<>1) then
     begin

       y:=a*sqr(sin(x/2)/cos(x/2))/(b+0.7*x);
       s1:=floattostr(x)+'         '+floattostrf(y,fffixed,10,5);
       if CheckBox1.checked then

          memo1.LineS.add(s1);
          if checkbox2.checked then

           series1.addxy(x,y,'',clred);

           if checkbox3.checked then
            writeln(f,s1);
            end;

   x:=x+d;

end;
  if checkbox2.checked then

     chart1.show;
    if checkbox3.checked then closefile(f);

end;

[bill]

1.Если ты хочешь проверять свои строчки каждую секунду-для этого есть компонент таймер.
2. Цикл repeat until здесь явно не к месту.Лучше всего сделать проверку значений эдита в процедуре edit1.change,либо отлавливать сообщение EN_CHANGE либо если этот нужен то надо использовать goto.
+ Я так понял что надо выводить messagedlg всякий раз если хотя бы в одном из эдитов есть другие символы кроме чисел. Поэтому надо:

if (c1=0)or(c2=0)or(c3=0) then messagedlg...

P.s messagedlg лучше вызывать отдельно не в цикле.

[mutabor]

Вот пример из справки Дельфи

uses Dialogs;
var 

  I, Code: Integer;
begin
  { Get text from TEdit control }
  Val(Edit1.Text, I, Code);
  { Error during conversion to integer? }
  if Code <> 0 then
    MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0);
  else
    Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));

end;

Там же можно прочесть зависимость ошибки от директив компилятора
{$R+} An out-of-range value always generates a run-time error.
{$R-} The values for out-of-range vary depending upon the data type of V.