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;