procedure TMyForm.ImageEnView1DropFiles(Sender: TObject; Filename: String; var AllowDrop: Boolean); begin // Custom handling for PDF files if Uppercase( ExtractFileExt( Filename )) = '.PDF' then begin AllowDrop := False; DisplayPDF( Filename ); end; end;