Menu desplegable con SQLServer

[Lionar81]

buenos dias
estoy con un proyecto de la universidad y necesito hacer el menú pero los campos deben de tomarse desde SQL Server y utilizando ciclo repetitivos y tener 2 campos en mi base de datos uno con el nombre del objeto y el otro para el padre y los hijos

unit Unit2;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Menus;

type
TForm2 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
Menu: TMainMenu;
a: TMenuItem;
b: TMenuItem;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
nombre: string;
begin
Menu:= TMainMenu.Create(Self);
ADOQuery1.First;
a:= TMenuItem.Create(Self);
a.Caption:= (ADOQuery1.FieldByName('frutas').AsString);
Menu.Items.Add(a);

ADOQuery1.First;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f1').AsString);
a.Add(b);

ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f2').AsString);
a.Add(b);

ADOQuery1.First;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f3').AsString);
a.Add(b);

ADOQuery1.Next;
a:= TMenuItem.Create(Self);
a.Caption:= (ADOQuery1.FieldByName('frutas').AsString);
Menu.Items.Add(a);

ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f1').AsString);
a.Add(b);

ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f2').AsString);
a.Add(b);


ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f3').AsString);
a.Add(b);

ADOQuery1.Next;
a:= TMenuItem.Create(Self);
a.Caption:= (ADOQuery1.FieldByName('frutas').AsString);
Menu.Items.Add(a);

ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f1').AsString);
a.Add(b);

ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f2').AsString);
a.Add(b);

ADOQuery1.Next;
b:= TMenuItem.Create(Self);
b.Caption:= (ADOQuery1.FieldByName('f3').AsString);
a.Add(b);



end;

end.

[Casimiro Notevi]

Bienvenido a clubdelphi, por favor, lee nuestra guía de estilo, gracias.
¿Esto tiene que ver con "Desarrollo en Delphi para iOS/OSX?

Y recuerda poner los tags al código fuente, ejemplo:



Gracias

[Lionar81]

esto es para una aplicación

[Casimiro Notevi]

Empezado por Casimiro Notevi

¿Esto tiene que ver con "Desarrollo en Delphi para iOS/OSX?

..........

[Neftali [Germán.Estévez]]

Es posible que esta entrada o esta otra te sirvan de ayuda.
Puedes descargar el código y echarle un vistazo, sobre todo à la creación del menú en runtime.