1:
2:
3:
4:
5:

  FInStream:=TFileStream.Create('abc.str',fmCreate);
  with FInStream do begin
     Write(Record,Sizeof(Record));
     Free;
  end;					

1:
2:
3:
4:
5:

  FOutStream:=TFileStream.Create('abc.str',fmCreate);
  with FOutStream do begin
     Read(Record,Sizeof(Record));
     Free;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

try
  fs := TFileStream.Create(...);
except
  fs := nil;
end;
if Assigned(fs) then begin
  ....
  fs.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

Function TExcelExImport.ImportTemplate(ImportFile : String; FileName: String): TTemplateRecord;
Var FOutStream,FInStream : TFileStream;
    ExSize,i : LongInt;
begin
  FOutStream:=TFileStream.Create(ImportFile,FmOpenReadWrite and fmShareDenyNone);
  FInStream:=TFileStream.Create(FileName,FmCreate);
  with FOutStream do begin
    Read(ExSize,SizeOf(Longint));
    FInStream.CopyFrom(FOutStream,ExSize);
    Read(Result,Sizeof(Result));
    Result.FileName:=FileName;
    free;
  end;
  FInStream.Free;
end;

Procedure TExcelExImport.ExportTemplate(ExportFile : String; Template: TTemplateRecord);
Var FOutStream,FInStream : TFileStream;
    ExSize : LongInt;
begin
  FOutStream:=TFileStream.Create(Template.Filename,FmOpenReadWrite and fmShareDenyNone);
  FInStream:=TFileStream.Create(ExportFile,FmCreate);
  with FInStream do begin
    ExSize:=FOutStream.Size;
    Write(ExSize,SizeOf(ExSize));
    CopyFrom(FOutStream,FOutStream.Size);
    Write(Template,Sizeof(Template));
    Free;
  end;
  FOutStream.Free;
end;