[Страдалецъ]

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

Код:

with Form2.ADOTable1 
do begin 
    First;
    while not EOF 
    do begin
        with TMenuItem.Create(self)
        do Caption := ADOTable1РПП.AsString;
        Next;
        end;
    end;