TreeView i DblClick

Witam

W komponencie wyłączyłem ShowButton.
Czy można tak zmienić właściwość komponentu
by rozwijał się i zwijał po jednym Click-u ( a nie po DblClick ) stojąc kursorem myszy na tekscie.

procedure TForm1.TreeView1Click(Sender: TObject);
var
  P: TPoint;
begin
  GetCursorPos(P);
  mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, P.x, P.y, 0, 0);
  mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, P.x, P.y, 0, 0);
end;

Arthan wielkie dzięki. Super działa.