Как вивести сообщение

[amator_roma]

У меня есть б.д и кнопка поиска

procedure TForm1.Button2Click(Sender: TObject);
var Key:Char;
begin
if AdoQuery1.Locate('Name',Edit5.Text,[loCaseInsensitive, loPartialKey]);
end;

У случае если не находит никакого значения виводилось сообщения типа
MessageDlg('open form2?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes

fom2.show;

Как реализовать?

[_SERGEYX_]

if AdoQuery1.Locate('Name',Edit5.Text,[loCaseInsensitive, loPartialKey]) then
if MessageDlg('open form2?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
fom2.show;