[Electronic_Arts]

Код:

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

ну всеравно если использовать Widestring оно не работает - одни каракули