Ltktybt edit'в

[Matters]

Народ как 1 edit разделить на 2 и записать в 3 edit?
Пишу:
var v1,v2:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
if TryStrToInt(edit1.Text, v1) and TryStrToInt(edit2.Text, v2) then
edit3.text:=inttostr(strtoint(edit1 .text)/strtoint(edit2.text));

Он выдает ошибку

[Terran]

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text));
End;