Как сделать, чтобы в Edit можно было записывать числа: 1.2 4.5 7.5 1.8 (дроби) и Delphi не ругался на это?

procedure TForm1.Button6Click(Sender: TObject);
 var i:integer;
begin
for i:= 1 to 50 do
  begin
   seek(f,filesize(f));
   seek(f1,filesize(f1));
   a.Nomer:= random(50);
   a.Mosnostj:=strtoint(edit2.Text);
   a.data:=strtoint(edit3.Text);
   b.Nomer:=a.Nomer;
   b.Familija:=edit8.Text;
   b.KogdaPrisel:= edit9.Text;
   b.KogdaUsel:= edit10.Text;
   write(f1,b);
   write(f,a);
   end;
   updown1.Max:=filesize(f);
   button10.click;
   updown1.Enabled:=true;
   end;

var sDrob : string;
begin
   sDrob := Edit1.Text;

var x: Float;
begin
x:=StrToFloat(Edit1.Text);

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  fValue, v1, v2 : double;
  p : integer;
begin
  fValue := 0;
  s := StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]);
  p := Pos('/',s);
  if  p = 0 then {одинарное число}
        fValue := StrToFloat(s)
  else begin
 
     v1 := StrToFloat( Trim( Copy(s, 1, p-1 )));
     v2 := StrToFloat( Trim( Copy(s, p+1, Length(s)-p )));
     if v2<>0 then
       fValue := v1 / v2;
  end;
 
  {выведем полученное значение}
  ShowMessage(' Value = '+ FloatToStr(fValue));
end;