Solo 2 Decimales

[lKinGl]

Salu2 amigos foristas

Tengo este código:

Código Delphi [-]
procedure TForm5.Edit4KeyPress(Sender: TObject; var Key: Char);
var
Oper:Integer;
Tot ,Bas, Iva, Exeouble;
begin
Tot:=0;
Bas:=0;
Iva:=0;
Exe:=0;
if key=#13 then
  begin
    With form1.ZVentas do
      Begin
        Oper:=RecordCount+1;
        Tot:=StrToFloat(Edit3.Text);
        Bas:=StrToFloat(Edit4.Text);
        Iva:=Bas*0.09;
        Exe:=Tot-Bas-Iva;
        Insert;
        FieldByName('N').AsInteger:=Oper;
        FieldByName('Fecha').AsDateTime:=StrToDate(MaskEdit1.Text);
        FieldByName('Rif').AsString:=MaskEdit2.Text;
        FieldByName('Nors').AsString:=Edit1.Text;
        FieldByName('Numf').AsInteger:=StrToInt(Edit2.Text);
        FieldByName('Vexe').AsFloat:=RoundTo(Exe,2);
        FieldByName('Tvtas').AsFloat:=RoundTo(Tot,2);
        FieldByName('IVA').AsString:='9%';
        FieldByName('BIMP').AsFloat:=RoundTo(Bas,2);
        FieldByName('IIVA').AsFloat:=RoundTo(Iva,2);
        Post;
        refrescar;
        sumatoria;
      end;
  end;
end;

tal y como aparece en mi código he usado las funciones RoundTo(var,2) por que consegui un tema en el foro que hablaba de eso pero a mi no me funciona

de igual manera con la Funcion Format('%f',[var]) tampoco logra lo que necesito....

como puedo lograr guardar con 2 decimales? asi el número sea 200 necesito guardar 200,00

gracias adelantadas