type
THaskControl = class(TControl);
procedure TMyForm.MyDblClick(Sender:TObject);
begin
 //  здесь проверить кликнули ли в пределах вкладки
end;

procedure TMyForm.FormCreate(Sender:TObject);
begin
 THaskControl(TabSet1).OnDblClick := MyDBlClick;    
end;