FAHeader                         =record              
Id                               :array[1..43]of char;
NumberOfDirectories              :longint;           
HeaderSize                       :longint;           
end;                                          

FADirectoryHeader                =record            
Id                               :array[1..12]of char;
TimeDate                         :longint;         
Size                             :longint;         
Position                         :longint;         
Flags                            :byte;            
end;                                                  

{This header is placed each time before proc - readbuf,textcolor etc }
FAMultiheader                    =record
HeaderType                       :byte;
HeaderSize                       :word;
end;

FATColorHeader                   =record
Textcolor                        :byte;
end;

FABColorHeader                   =record
Textbackground                   :byte;
end;

FABufferHeader                   =record
BufferType                       :byte;
ReadPos                          :longint;
end;

FAStartMessageHeader             =record
Len                              :byte;
end;

FASignatureData                  =record
DescriptionLen                   :byte;
SignatureLen                     :byte;
SpaceTableLen                    :byte;
end;

FAExtensionHeader                =record
ExtensionLen                     :byte;
DescriptionLen                   :byte;
end;

{Now multiheader is not used}

PluginHeader                     =record            
AskLength                        :byte;              
DefChar1                         :char;            
DefChar2                         :char;             
DefChar3                         :char;             
DefChar4                         :char;            
Ask                              :byte;             
Position                         :longint;            
end;                                                  

PluginDataHeader                 =record          
NameLength                       :byte;              
SignatureLen                     :byte;            
SpaceTableLen                    :byte;           
end;                                                

IncludedFAHeader                 =record           
TimeDate                         :longint;         
FileNameLen                      :byte;             
end;