TOnOperation = procedure (Sender: TObject; Operation: TJamShellOperations; Files: TFilenames; Destination: UnicodeString) of object;