procedure TForm1.Button1Click(Sender: TObject);
var x: real;
begin
  try x:=StrToFloat(Edit1.Text);
  except on Exception : EConvertError
         do ShowMessage('Хибний запис числа!');
  end;
end;