DiSi выглядит все правильно. Регулярка точно подходит под остальные выражения?

А хотя, вообще то надо так:
memo1.Lines.Text := Money;
а не так:
memo1.Text := Money;