Prueba así:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
a : Currency;
a1 : Currency;
tot: Currency;
begin
a := strtoint(edit1.Text); a1 := strtoint(maskedit1.Text); tot:= (a * a1);
maskedit1.Text := FormatFloat(',0.00',tot);
end;
Además deberías utilizar Try...Except para cubrirte de valores incorrectos.
Un Saludo.