[Karsh]

тогда попробуйте так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  w: hwnd;
  x: dword;
  s: PWideChar;
begin
  GetMem(s, 256);
  StringToWideChar(Edit1.Text, s, Length(Edit1.Text)+1);
  w:= CreateFileW('c:\ss.ini', GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, 0, 0);
  WriteFile(w, s[0], lstrlenW(s)*2, x, nil);
  CloseHandle(w);
  FreeMem(s, 256);
end;