Запись данных в ntfs поток

[Pack]

Здравствуйте. допустим есть файл file.exe, у файла есть ntfs поток под названием Zone.Identifier, который не содержит никаких данных. нужно записать в него текстовые данные. нашел в интернете такой код

var
  f:textfile;
begin
 assign(f,'C:\file.exe:Zone.Identifier');
 rewrite(f);
 write(f,'text');
 closefile(f);
end;

но работать оно не хочет подскажите, как записать в этот поток данные, спасибо.

[Баламут]

var
   f: TFileStream;
   s: string[20];
begin
   s := 'text';
   f := TFileStream.Create('C:\file.exe:Zone.Identifier', fmOpenWrite);
   f.WriteBuffer(s[1], Length(s));
   FreeAndNil(f);
end;

[Pack]

Баламут, спасибо большое а можно увидеть пример кода на WinAPI? очень уж не охота подключать classes к проекту, спасибо.