[san-46]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  S, St : String;
  SL : TStringList;
  I : Integer;
begin
  St := '105#%#Компьютер#%#Требуется помощь'; //оригинальная строка

  S := StringReplace(St, '#%#', '","', [rfReplaceAll]);
  S := '"' + S + '"';
  SL := TStringList.Create;
  SL.CommaText := S;

  for I := 0 to SL.Count-1 do
    mas[I+1] := SL[i];

  SL.Free;
end;