Traducción de C a Delphi

[madiazg]

Hola, he implementado este código:

var
  EXIF : PGFL_EXIF_DATA;
  NItems : integer;
  gfl_bmp1b: PGFL_BITMAP; // Estructura que contiene todas la información sobre una imagen cargada en memoria

...
begin
......
    if gflBitMapHasEXIF(gfl_bmp1b) = gfl_no_error then
    begin
      LabelEXIF.Enabled := True;
      Exif := gflLoadExif(Pchar(FileName1),0);
      NItems := Exif.NumberOfItems;
       for i := 0 to NItems-1 do
      begin
        FormPrincipal.ListBox1.Items.Add(Exif.ItemsList[i].Name + ': ' + Exif.ItemsList[i].Value);
     end;

      gflFreeEXIF(Exif);
    end else MessageDlg('File not readable: ' + string(gflGetErrorString(e1)), mtError, [mbOK], 0);

Funciona correctamente. Gracias!!!!