//bu örnekte form üzerinde mouse'un sag tusuna basilinca merhaba yazan bir mesaj cikar
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ssright in shift then begin
MessageDlg('Merhaba', mtInformation, [mbOk], 0);
end;
end;