function NumberToString(Number : String) : String;
var
i : Integer;
begin
for i := 1 to Length(Number) do
if Number[i] in ['0'..'9'] then
Result := Result + Number[i];
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Number : String;
begin
Number := '1.234.567.890,99';
ShowMessage(NumberToString(Number)); end;