[Muxa]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
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;

Надо записать в файл вышеуказанную строку. Но почему-то пишет только абракадабру...