OnProgressStatus Example for Delphi

procedure TForm1.LEADDicom1OnProgressStatus(Sender: TObject; iPercent: Integer);
begin
   Form1.Caption := 'Loading...' + IntToStr(iPercent) + '%';
   Application.ProcessMessages();
end;

{ Click on the LEAD Main control to enable/disable generating progress events }
{ This works even during getting or setting the DICOM bitmap }
procedure TForm1.LEADImage1Click(Sender: TObject);
begin
   LEADDicom1.EnableProgressEvent := not LEADDicom1.EnableProgressEvent;
end;