[v1s2222]

Код:

var  f: file of char;
i, k: integer;
begin
  Assignfile(f, 'C:\111111.tttt');
  ReWrite(f);

  for i:=0 to memo1.Lines.Count-1 do
    for k:=1 to length(memo1.Lines.Strings[i]) do
      write(f, memo1.lines.Strings[i][k]);

  closefile(f);

Только с табуляцией и переносом строки надо разбираться.