Проверка условия ввода данных в edit

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
// Key — символ, соответствующий нажатой клавише.
// Если символ недопустимый, то процедура заменяет его
// на символ с кодом 0. В результате этого символ в поле
// редактирования не появляется, и у пользователя создается
// впечатление, что программа не реагирует на нажатие некоторых
// клавиш.
case Key of
'0'..'9': ; // цифра
#8 : ; // клавиша <Back Space>
#13 : Edit2.SetFocus ; // клавиша <Enter>, переводим фокус на второй Edit
// остальные символы — запрещены
else Key :=Chr(0); // символ не отображать
end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in['0'..'9',decimalseparator,#8]) then key:=#0;
 end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var k:integer;
begin
if Edit1.Text='0' then //Если ввелиноль, то после него
                            //должна стоять запятая
                            //либо только удалить его
  if not(key in [',',#8]) then key:=#0;
if key in['0'..'9',',',#8] then //разрешаем вводить только числа и не забываем про БакСпейс :)
  begin
  if key=',' then //проверка для только одной запятой
    begin
    if Edit1.Text='' then key:=#0;
      For k:=1 to Length(Edit1.Text) do
      begin
      if Edit1.Text[k]=',' then key:=#0;
      end;
    end;
  end else key:=#0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x: Integer;
begin
  if not TryStrToInt(Edit1.Text, x) then // или TryStrToFloat если нужно с запятой
    ShowMessage('Данные некорректны')
  else
    ShowMessage('Данные введены верно');
end;