Выпадающее меню в Delphi

[boostman]

Люди подскажите как сделать чтоб, когда юзер щелкал на один из пунктов выпадающего меню, и в стоящем рядом текст боксе появлялся текст который относится к этому пункту.

[Stilet]

Ну например забей OnClick на этот пункт в котором пропиши

текст боксе.текст:=TMenuItem(sender).caption

[boostman]

Cсовсем нето.. вот надо например чел выбрал в выпадающем списке пункт Крот и рядом в мемо появилась инфа о кроте допустим (это только пример )

А если выбрал Заяц то вышла б инфа о зайце)))

[SERG1980]

1. Можно попробовать с помощью файлов. Например создаёте файлы *.txt с описанием ваших животных. Сохраняете их (например Заяц.txt).
пишете процедурку
например:

 procedure LoadMyText(FName:string,Mymemo:TMemo);
 begin
  if MyMemo.Text<>'' then MyMemo.Clear;
  MyMemo.Lines.LoadFromFile(FName);//типа файлы лежат где экзешник 
 end;

а применить её:

 LoadMyText(TMenuItem(sender).caption,Memo1);

но по мне так лучше базу данных (например Access);