Ayuda para traducir código delphi a c++ builder

[mordaz]

Que tal,

Alguien me puede ayudar a entender este codigo para traducirlo, principalmente hace 2 funciones convertir una variable Variant a un archivo y de un archivo a la variable de nuevo.

Este es el codigo de guardado:

procedure TForm1.SaveTemplate();
 var
outFile : File of byte;
vrnt: Variant;
vtByteBuf : PByteArray;
aryLow: integer;
aryHigh : integer;
loopIndex : integer;
iTemplate : DPFPShrXLib_TLB.IDPFPTemplateDisp;
begin

try
if SaveDialog.Execute then
      begin
iTemplate := DPFPEnrollment.Template as DPFPShrXLib_TLB.IDPFPTemplateDisp;
vrnt:=iTemplate.Serialize;  //raw data is now stored in this variant

        //Now that you have the variant, try to get raw byte array
        //We are assuming here that you cannot save a variant directly to database field
        //That you need a byte array before saving the data to the database.
        aryLow:=VarArrayLowBound(vrnt,1);
        aryHigh:=varArrayHighBound(vrnt,1);
        aryHigh:=aryHigh-aryLow;

        vtByteBuf:=VarArrayLock(vrnt);  //lock down the array
        AssignFile(outFile,saveDialog.FileName);
        Rewrite(outFile);
        for loopIndex := 0 to aryHigh  do
        begin
               //fpData[loopIndex]:=vtByteBuf[loopIndex];
               //bt:=fpData[loopIndex];
               Write(outFile,vtByteBuf[loopIndex]);  //Save directly to file here
        end;
        VarArrayUnlock(vrnt);
      end;
except
on E: Exception do showmessage('Trouble saving data');
end;
        CloseFile(outFile);


end;

Y este el codigo de recuperacion:

procedure TForm1.LoadTemplate;
var inFile : File of Byte;
    vrnt: Variant;
    vtByteBuf : PByteArray ;
    loopIndex : integer;
    length : integer;
    bt : byte;
begin
  if OpenDialog.Execute() then
  begin
    if OpenDialog.FileName <>'' then
    begin

         AssignFile(inFile,OpenDialog.FileName);
         Reset(infile);

         length:=FileSize(inFile);
         vrnt := VarArrayCreate([0,length],varByte); //Allocate the array required to store the fpdata in your variant
         vtByteBuf:=VarArrayLock(vrnt);
         loopIndex:=0;
         while not Eof(inFile) do
         begin
             Read(inFile,bt);
              vtByteBuf[loopIndex]:=bt;
              loopIndex:=loopIndex+1;
         end;

         VarArrayUnlock(vrnt);
         CloseFile(inFile);

         TemplateFromFile.Deserialize(vrnt);

    end;
  end;
end;

Espero que me puedan ayudar a entender el codigo para traducirlo. Gracias.