procedure TMain.clUploader1StatusChanged(Sender: TObject; Status: TclProcessStatus);   
begin   
   case Status of   
      psSuccess: ShowMessage('Process completed successfully');   
      psFailed: ShowMessage((Sender as TclUploader).Errors.Text);   
      psTerminated: ShowMessage('Process stopped');   
      psErrors: ShowMessage('Process completed with some warnings');   
   end;   
end;