[marcoszorrilla]

Prueba así:

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  var
  a  : Currency;
  a1 : Currency;
  tot: Currency;
  begin
  a  := strtoint(edit1.Text);  //precio compra
  a1 := strtoint(maskedit1.Text); //valor del cliente
  tot:= (a * a1);
  maskedit1.Text := FormatFloat(',0.00',tot);
  end;

Además deberías utilizar Try...Except para cubrirte de valores incorrectos.

Un Saludo.