Fórum Criar menu e jogar rotina no onclick dos itens #165546

Ola tenho essa rotina q faz o seguinte, pega os textos de um list e cria um menu para cada um item

Var
i : integer;
Device : TMenuItem;
Begin
Cont := 0;
If Memo.Lines.Count > 0 Then
For i := 0 To Memo.Lines.Count - 1 Do
Begin
Device := TMenuItem.Create(Menu);
Device.Caption := Memo.Lines.Strings[i];
Device.Tag := i;
Menu.Items.Add(Device);
End;
End;


preciso fazer isso com um arquivo txt q esta assim

TESTE /teste.qr2
nota /nota.qr2
venda /venda.qr2

preciso criar um item em um Tmenu para cada texto do txt que venha antes da barra ´/´ q fique assim TESTE, NOTA, VENDA... onde ao clicar em cada item desse menu onde ele execute o camando com o arquivo q vem depois da barra

QRD.EditReport(´teste.QR2´);
ou
QRD.EditReport(´nota.QR2´);
ou
QRD.EditReport(´venda.QR2´);
conforme o menu.


Ou seja preciso gerar um menu e jogar comandos no evento onclick dele ...
Alguém pode me dar uma mãozinha??