procedure THiAsmClass.doWr;
var F:File of integer;
    st : integer;
begin
 AssignFile(F,'1.dat');
 Reset(F);
 st := 333;
 Write(F,st);
end;

procedure THiAsmClass.doWr;
var F:File of PStream;
    st : PStream;
begin
 AssignFile(F,'1.txt');
 Reset(F);
 st := ReadStream(_Data,Data,0);
 Write(F,st);
end;

Add(FileStream,10294903,182,490)
{
 FileName="1.txt"
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
}
Add(PointHint,13354955,28,490)
{
 Info=#20:Сюда подавать Stream|
 Width=127
 Height=25
 link(Event,10294903:doCopyFromStream,[(169,502)(169,510)])
}

Add(FileStream,16619647,308,161)
{
}
Add(Button,16482932,203,161)
{
 Left=200
 Top=160
 link(onClick,208033:doExecute,[])
}
Add(ODialog,208033,252,161)
{
 link(onExecute,16619647:doOpen,[])
}