이런방법이 있습니다.
procedure TForm1.Button1Click(Sender: TObject);

  function GetIntFromStr(Value : String) : string;
  var vni : integer;
      vbPharsing : Boolean;
  begin
       result := '';
       vbPharsing := True;
       for vni := 1 to length(Value) do
         if Value[vni] in ['0'..'9'] then
         begin
            if not vbPharsing then Result := Result + ' ';
            Result := Result+Value[vni];
            vbPharsing := True;
         end
         else vbPharsing := False;
  end;

var vni : integer;
begin
     mmResult.Lines.Clear;
     for vni := 0 to mmSource.Lines.Count-1 do
        mmResult.Lines.Add(GetIntFromStr(mmSource.Lines[vni]));
end;

안녕하세요. 최용일입니다.

나름대로 규칙이 있으니까 그 규칙에 따라 문자열함수들(Copy, Pos, ...)을 이용하셔서 파싱하시면 되겠네요...

var
    Source, Value1, Value2: string;
    P, I, C: Integer;
begin
    Source := '111~22222마리';
    P := Pos('~', Source);
    C := 0;
    for I := (P+1) to Length(Source) do
    begin
        if Source[I] in ['0'..'9'] then
            Inc(C);
    end;
    Value1 := Copy(Source, 1, P-1); // = '111'
    Value2 := Copy(Source, P+1, C); // = '22222'
end;

^^ 항상 즐코하세요...

어려움이 있던 것을 해결해 주셔서 정말감사합니다.