Tray?

Hej jeg tænkte om nogen vidste hvordan jeg laver når jeg har lagt mit program ned i tray.. hvordan jeg åbner det igen når man double klikker på det...

har fundet et script der gør ved bare 1 click

men det skal være double klik...

procedure TMainForm.TrayMessage(var Msg: TMessage);
begin
  case Msg.lParam of
    WM_LBUTTONDOWN:
    begin
      ShowMessage('Right button clicked - let''s SHOW the Form!');
      MainForm.Show;
    end;
    WM_RBUTTONDOWN:
    begin
      ShowMessage('Right button clicked - let''s HIDE the Form!');
      MainForm.Hide;
    end;
  end;
end;