не получается разобраться с меню в делфи

[ch_dark]

Я делаю программу на делфи. Программа состоит из 5 форум все формы работают одна открывает др итд. Первая форма у меня как бы главная на ней находится меню, так вот как сделать чтобы это меню работало и с др формами , как все объединить???????(например как прописать пункт меню ПОИСК)

[GetMax]

как сделать чтобы это меню работало и с др формами

Что то я не до понял. Вы хотите из первой формы запустить подпрограмму, написанную в модуле для второй формы? Или что?

[ch_dark]

нет надо сделать в меню подпункт Поиск чтобы он искал не только в первой форме но и во всех формах как так прописать ??(текст который нужно искать находится в Label)

[GetMax]

Как вариант - это каждый раз передавать в подпрограмму поиска компоненты в которых необходимо произвести поиск. (При условии что поиск ведется в однотипных компонентах)

[ch_dark]

это мне ничем не помогло (( можете ли вы написать мне пример программы реализующий поиск только не в memo, edit , а в label?

[GetMax]

можете ли вы написать мне пример программы реализующий поиск только не в memo, edit , а в label

Да запросто. Для простоты будем считать что у нас 2 формы (Form1, Form2) на каждой из которых расположено по 2 компонента TLabel. Так как опять же мне не известно какие данные хранятся у Вас в Label'ах, то будем считать что там просто строки и задача состоит в том что бы найти в каких Label'ах у нас имеется слово, которое мы ищем (StringForSearch).
Все компоненты TLabel, в которых необходимо провести поиск будем хранить в массиве.

Type
  TArrayLabel = array [1..4] of TLabel;

Номера нужных нам Label'ов будут заноситься в компонент TMemo. Тогда сам поиск будет выглядеть так

Procedure SearchInAllLabel( ALabel : TArrayLabel; StringForSearch : String; Memo : TMemo);
Var
  i : Integer;
  tmps : String;
Begin
  for I := 1 to 4 do
  Begin
    tmps := ALabel[i].Caption;
    if(Pos(StringForSearch, tmps) > 0) then
      Memo.Lines.Add(ALabel[i].Name + ' found - true');
  End;
End;

Ну и вызов

  ArrayLabel[1] := Form1.Label1;
  ArrayLabel[2] := Form1.Label2;
  ArrayLabel[3] := Form2.Label3;
  ArrayLabel[4] := Form2.Label4;

  SearchInAllLabel(Arraylabel, 'сюда вставить слово/строку для поиска', Memo1);

Если у Вас в Tlabel хранятся другие данные (например элементы массива), то в процедуре поиска предварительно надо будет парсить данные в соответствующий массив. И уже производить поиск в получившемся массиве.