1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

type
  TListView = class(ComCtrls.TListView)
  private
    procedure WMLButtonDown(var Msg: TWMLButtonDown);
      message WM_LBUTTONDOWN;
    procedure WMLButtonUp(var Msg: TWMLButtonUp);
      message WM_LBUTTONUP;
  end;

  TFrmMain = class(TForm)
  ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TListView.WMLButtonDown(var Msg: TWMLButtonDown);
begin
  Msg.Keys := Msg.Keys or MK_CONTROL;
  inherited;
end;

procedure TListView.WMLButtonUp(var Msg: TWMLButtonUp);
begin
  Msg.Keys := Msg.Keys or MK_CONTROL;
  inherited;
end;