minimieren in den systemtray

[Prym]

das habe ich bis jetzt
---------------------------------------------------------

Delphi-Quellcode:

procedure TWinForm.NotifyIcon1_MouseDown(sender: System.Object; e: System.Windows.Forms.MouseEventArgs);
begin
     if(WindowState = FormWindowState.Minimized)then
     begin
      WindowState := FormWindowState.Normal;
     end;
   Activate();
   notifyIcon1.Visible  := false;
   ShowInTaskbar   := true;
end;

procedure TWinForm.TWinForm_SizeChanged(sender: System.Object; e: System.EventArgs);
begin
     if(WindowState = FormWindowState.Minimized)then
     begin
      ShowInTaskbar  := false;
      notifyIcon1.Visible := true;
     end;
end;

procedure TWinForm.TWinForm_Closing(sender: System.Object; e: System.ComponentModel.CancelEventArgs);
begin
  notifyIcon1.Visible := false;
end;

-------------------------------------------------------------------------------------------


das habe ich jetzt so gemacht aber das geht nicht also es wird nicht im tray angezeigt
und das
--------

Delphi-Quellcode:

procedure TWinForm.NotifyIcon1_MouseDown(sender: System.Object; e: System.Windows.Forms.MouseEventArgs);
begin
     if(WindowState = FormWindowState.Minimized)then
     begin
      WindowState := FormWindowState.Normal;
     end;
   Activate();
   notifyIcon1.Visible  := false;
   ShowInTaskbar   := true;
end;

--------
soll ja eigentlich da rein
------
ContextMenu
-------

aber wie greif ich darauf zu bei mir steht da none und ich kann da nix machen

und was soll das?
----------

Delphi-Quellcode:

void MenuItem2Click(object sender, System.EventArgs e) 
{ 
   this.Close(); 
}

----------