Komponent delphi OpenDialog

Witam. Prosiłbym o rozwiązanie mojego małego problemu;) Otóż: wykorzystuje komponent OpenDialog. Chciałbym zrobić taką funkcje że : uruchamiam komponent i mając pole do wczytania są i 2 buttony ( akcja systemowa) Otwórz i Anuluj; Po kliknięciu Otwórz pojawia się komunikat : wczytano po Anuluj; nie wybrano pliku;
Zauważyłem że w komponencie OpenDialog/Events są funkcje które mają coś wspólnego z tym co chcę osiągnąć. Można dodać zdarzenie jedynie NazwaClick więc dodałem procedure na formie:

procedure TForm1.AnulujClick(Sender: TObject);
begin
ShowMessage('Nie wybrano pliku')
end;

dodałem to zdarzenie do OnClose (inne próbowałem ale nie daje mi tego efektu)
gitara gra klikam Anuluj i jest komunikat :) Lecz gdy wczytam plik to i tak wyświętla mi się Nie wybrano pliku...
Mam nadzieje że ktoś mi pomoże :) Pozdrawiam

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    begin
    //tu robisz to co miałeś robić z otworzonym plikiem
    ShowMessage('Wczytano plik')
    end
    else
      ShowMessage('Nie wybrano pliku')
end;

Dokładnie o to mi chodziło :) Dzięki ;