[Marvel]

а вот так чем не устраивает:

Код:

var
  f: file;
  buf: PChar;
begin
  buf := 'текст';
  try
    AssignFile(f, 'file.txt');
    Rewrite(f, 1);
    BlockWrite(f,buf^,Length(buf));
    CloseFile(f);
  except
    ShowMessage('ошибка создания файла');
  end;
end;