[Marvel]

вот так попробуй:

Код:

var
  H_File: THandle;
.....

procedure TForm1.Button1Click(Sender: TObject);
var
  str: PChar;
  written: cardinal;
begin
  str := 'Test - Тест';
  WriteFile(H_File,str^,Length(str),written,nil);
  FileClose(H_File);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  H_File := CreateFileW('D:\test.txt',GENERIC_WRITE,FILE_SHARE_READ,
                        nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
  if (GetLastError() = INVALID_HANDLE_VALUE) then
     ShowMessage('Не удалось создать файл');
end;

проверил, работает