Doppelklick auf Titelleiste erkennen

[TStringlist]

meinst du etwa das hier:

Code:

Procedure TForm1.WndProc(var Msg : TMessage);
begin
  if  (Msg.Msg = WM_NCLButtonDBLCLK)
  and (Msg.WParam = HTCAPTION)
  then windows.beep(1000,100);
  inherited;
end;