[aarmalo]

Esta podría ser una posible forma de multiplicarlo:
var
k:string;
b:real;
begin
k:=DBEdit1.Text; {El Currency}
Delete(k,1,1); {Le quitamos el signo $}
b:=StrToFloat(k)*StrToInt(DBEdit2.Text); {realizamos la multiplicación}
end;