[Karsh]

вот так можно записать строку в файл в юникоде:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  w: hwnd;
  x: dword;
  a: array[0..10] of widechar;
begin
  w:= CreateFileW('c:\ss.ini', GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, 0, 0);
  lstrcpyW(a, 'Hello world');
  WriteFile(w, a[0], SizeOf(a), x, nil);
  CloseHandle(w);
end;