Du brauchst eine Zeitmessung, wo entschieden wird, ob es Doppel- oder Einfachklick ist. Damit du nicht dafür einen TTimer vergewaltigst, kannst du hier auch zB mit GetTickCount arbeiten. Du speicherst den TickCount beim OnClick und schaust beim nächsten OnClick, ob dieser innerhalb von zB 200ms liegt. Wenn ja, ist es ein Doppelklick.
Delphi-Quellcode:
var
StartTicks, CurTicks, PassedMs: Cardinal;
begin
StartTicks := GetTickCount;
repeat
CurTicks := GetTickCount;
PassedMs := CurTicks - StartTicks;
WriteLn(PassedMs, 'ms');
Sleep(100);
until FALSE;
end;