[v1s2222]

Можно или массивом символов (s: array of Char), но придеться заполнять каждый символ отдельно.
Или можно создать программку, которая сама тебе бы делила строку на 255 символов, примерно так:

Код:

var
  S: string;
  i: integer;
  lastlen: integer;
begin
  lastlen:=0;
  for i:=1 to length(memo1.text) do begin
    inc(lastlen);
    if(lastlen <= 255) then begin
      s:=s+memo1.Text[i];
      lastlen:=0;
    end;
  end;
  showmessage(s);