[kovalev]

Вот так еще можно:

Код:

function SaveTextToFile(Filename: string; Text: string): Boolean;
var
  f: HFILE;
  Size: DWORD;
begin
  Size := Length(Text);
  f := _lopen(PChar(Filename), OF_READWRITE);
  _llseek(f, 0, FILE_END);
  _lwrite(f, @Text[1], Size);
  _lclose(f);
  Result := True
end;