Necesito saber como hacer menús con firebird en delphi

Te paso algo de código como para que arranques y luego puedas seguir investigando para hacerlo más lindo y lograr lo que vos necesitas, saludos.
Nota: para que esto funcione debes agregar los siguientes uses: Menus, DB, ADODB
procedure TForm1.FormCreate(Sender: TObject);
var
  r: TmenuItem;
  m: TmenuItem;
  conn: TADOConnection;
  query: TADOQuery;
  Menu: TMainMenu;
begin
  //coneccion a db
  conn.ConnectionString := 'conection string para firebird (googlealo)';
  conn.Open;
  try
    query.Connection := conn;
    query.SQL.Add('select miitem from TablaMenu');
    query.ExecSQL;
    if query.RecordCount <=0 then begin
      ShowMessage('la tabla no tiene registros');
      Exit;
    end;
    r := TMenuItem.Create(menu);
    r.Caption := query.FieldValues['miitem'];
    Menu.Items.Add(r);
    while not query.Eof do begin
      m := TMenuItem.Create(menu);
      m.Caption := query.FieldValues['miitem'];
      r.Add(m);
      m := TMenuItem.Create(menu);
      m.Caption := query.FieldValues['miitem'];
      r.Add(m);
      query.Next;
    end;
  finally
    conn.Close;
  end;
  //Falta hacer las variables globales para luego liberar todo en el método destroy
//eso te lo dejo a vos
  {Tambien faltaria la logica para hacer que los menu se vallan colgando de otros menus
y asi armando la rama de menus, pero digamos como para que arranques
aca tenes la base de como encararlo}
end;

Muchas gracias por los códigos que me enviaste fueron de mucha ayuda para mi pero ahora tengo una duda, como hago para poner una opción del menu Disable pero que quede visible, te explico con un ejemplo, cuando en word uno entra y esta por ejemplo una opción "cualquiera" tu la vez como en gris claro y no puedes acceder a ella porque se encuentra deshabilitada en ese momento, como puedo crear algo así.
Espero me puedas ayudar nuevamente muchas gracias
Jennifer