[NumLock]

Сообщение от Graf58

но t: file of Char.

не проблема:

Код:

var
  f: file of Char;
  s: String;
begin
  AssignFile(f, 'Project1.txt');
  Rewrite(f);
  s:=Memo1.Text;
  BlockWrite(f, s[1], Length(s));
  CloseFile(f);
end;