Error de Currency

[Epunamun]

Estoy manejando valores de monedas y nesecito hacer calculos y me sale error, de tipos ejemplo

var
a: Currency;
a1: Currency;
tot: Currency;
begin
a := strtoint(dbedit1.Text);  //precio compra
a1 := strtoint(maskedit1.Text); //valor del cliente
tot := (a * a1);
maskedit2.Text := inttostr(tot);

Esto va a un procedimiento ayuda plz