Поиск в тексте числа и преобразование его

procedure MemoParser;
var
  Stream: TMemoryStream;
begin
   Form1.MemoResult.Clear;
   // Создаем поток
   Stream := TMemoryStream.Create;
   // Загружаем в него текст из Memo
   Stream.WriteBuffer( Form1.MemoCode.Text[1], Length( Form1.MemoCode.Text ) );
   Stream.Position := 0;
   with TParser.Create( Stream ) do
      // Пока не дошли до конца потока...
      while Token <> toEof do
      begin
         if Token = toInteger then
            Form1.MemoResult.Lines.Add( TokenString );
         NextToken;
      end;
   Stream.Free;
end;

uses
  Math;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  S, S1, SRes : String;
  i, j, Pos1 : Integer;
begin
  S := Edit1.Text;
  S1 := '';
  i := Length(S);
  j := 0;
  while i >= 1 do begin
    Pos1 := Max(i - 2, 1);
    S1 := Copy(S, Pos1, i - Pos1 + 1);
    i := i - 3;
    Inc(j);
    case j of
      1 : SRes := S1 + ' гривен.';
      2 : SRes := S1 + ' тыс ' + SRes;
      3 : SRes := S1 + ' млн ' + SRes;
      4 : SRes := S1 + ' млрд ' + SRes;
    else
      SRes := S1 + ' ??? ' + SRes;
    end;
  end;
  ShowMessage(SRes);
end;