Niepusty Caption Buttona

Witam.

Pisze sobie programik i potrzebuje zrobić warunek, który będzie wyświetlał wiadomość jeżeli kilka(6) buttonów nie będzie miało pustego captiona. Napisałem coś takiego:

procedure TForm1.Button7Click(Sender: TObject);
begin
if not (Button1.Caption='') and (Button2.Caption='') and (Button3.Caption='') and (Button4.Caption='') and (Button5.Caption='') and (Button6.Caption='') then ShowMessage('Wiadomość');
end;

W tych buttonach od 1-6 ustawiłem testowe captiony(asdf) i gdy klikam w button7 to nie wyświetla mi wiadomości(a przecież buttony nie są puste, więc powinna wyświetlić się wiadomość).
Może mi ktoś powiedzieć co mam nie tak?

Pozdrawiam.

if  //jeśli
     not (Button1.Caption='') //NIE jest puste
and  //i
    (Button2.Caption='')  //jest puste
and  //i
    (Button3.Caption='')  //jest puste
and  //i
    (Button4.Caption='')  //jest puste
and  //i
    (Button5.Caption='')  //jest puste
and  //i
    (Button6.Caption='')  //jest puste
then ShowMessage('Wiadomość');

Dzięki wielkie za pomoc. Problem rozwiązany. ;)