Ne Art Switch umsetzen

[Nisbo]

Moin Moin

ich habe bei mir im Programm mehere Links drinn welche über ein menü aufgerufen werden das in ansätzen so ausschaut:

Delphi-Quellcode:

 procedure MenuItem3Click(Sender: TObject);
 procedure MenuItem4Click(Sender: TObject);
 procedure MenuItem5Click(Sender: TObject);

.
.
.
.
.

procedure TForm1.MenuItem3Click(Sender: TObject);
begin Shellexecute(handle,'open',PChar('http://www.google.de'),'','',sw_show); end;

procedure TForm1.MenuItem4Click(Sender: TObject);
begin Shellexecute(handle,'open',PChar('http://www.google.com'),'','',sw_show); end;

procedure TForm1.MenuItem5Click(Sender: TObject);
begin Shellexecute(handle,'open',PChar('http://www.gmx.de'),'','',sw_show); end;

nun denke ich mir mal (da ich sowas ja auch von PHP kenne ) das man das auch besser lösen kann z.b. ala:

Delphi-Quellcode:

case seite of
  1: Shellexecute(handle,'open',PChar('http://www.google.de'),'','',sw_show);
  2: Shellexecute(handle,'open',PChar('http://www.google.com'),'','',sw_show);
  3: Shellexecute(handle,'open',PChar('http://www.gmx.de'),'','',sw_show);
end;

nur was bastelt man da rum ? und wie bekommt man es hin das jedes menueItem eine Zahl sendet z.b. 1 für google.de ?