[Casimiro Notevi]

Faltan dos end;

Código Delphi [-]
var
  I: Integer;
  Bitmap1: TBitmap;
  dd1: TDicomDataset;
  AStream : TStream;
begin
  for I := 0 to ListBox2.Items.Count - 1 do
  begin
    dd1:= TDicomDataset.Create;
    dd1.LoadFromFile(ListBox2.Items.Strings[i]);
    Bitmap1 := TBitmap.Create;
    dd1.Attributes.ImageData.AssignToBitmap(Bitmap1,False);
    Redimensionar(Bitmap1,80,80);
    try
      Data1.TablaSeries.Edit;
      AStream:= Data1.TablaSeries.CreateBlobStream(Data1.TablaSeries.FieldByName('SERIES_ICON'), bmWrite);
      Bitmap1.SaveToStream(AStream);
    finally
      Bitmap1.Free;
      AStream.Free;
    end;
  end;
end