[jirbert]

procedure TForm5.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 Var
iva,total:double;

begin
 if edit3.Text<>'' then
  begin
   total:=strtofloat(edit3.text);
   iva:=total*0.09;
   edit4.Text:=format('%f',[iva]);
   //edit5.text:=strtoint(edit3.text)+strtoint(edit4.text);
  end
 else edit4.Text:='';
end;