function CreateCode(SDK:cardinal; cgt:PCodeGenTools):PStrList; cdecl;

type
  TCGrec = object
    MainForm:string;
    Vars,Units,IBody,Dead,RUnit:PStrList; //!!!
    procedure Clear;
   end;

   Res:TCGrec=(Vars:nil;Units:nil;IBody:nil;Dead:nil;RUnit:nil); //!!!
 
function CreateCode(SDK:cardinal; _cgt:PCodeGenTools):pointer; cdecl;
//... cut ...
  Result := @Res; //!!! указатель на структуру, соержащую в себе 5 PStrList-ов