Récupérer le Click de ces boutons

Dans le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
  on EinvalidGraphic do
              begin
                 FicheMessage:=CreateMessageDialog('Le fichier '+Listbox2.items[n2]+' est invalide !', mtInformation,[mbYes,mbNo,mbAll]);
                for i := 0 to FicheMessage.ComponentCount - 1 do
                if ( FicheMessage.Components[i] is TButton ) then
                with ( FicheMessage.Components[i] as Tbutton ) do
                begin
                  FicheMessage.Width:=517;
                  FicheMessage.Height:=150;
                  Height:=40;
                  If Caption='&Oui' then
                  begin
                    Left:=10;
                    Width :=75;
 
                    Caption:='Ignorer';
                  end;
                  If Caption='&Non' then
                  begin
                    Left:=95;
                    Width :=220;
                    Caption:='Enlever le fichier de la liste de recherche';
                  end;
                  If Caption='&Tout' then
                  begin
                    Left:=325;
                    Width :=175;
                    Caption:='Envoyer le fichier à la corbeille';
                  end;
                end;
                FicheMessage.ShowModal;
                FicheMessage.Release;

un MessageDlgBox est créé mais je n'arrive pas à récupérer le click sur les boutons afin de leur associer une procédure à exécuter. Dans un messagedlg ordinaire on a

Code:

if MessageDlg('Texte.....', mtConfirmation, [mbYes, mbNo], 0) = mrYes then //procédure à remplir

mais dans le premier exemple, je suis embêté, un peut d'aide me serait grandement utile.

Merci.

Duan

Code:

if FicheMessage.ShowModal = mrYes then

Merci beaucoup

Duan