Looping Not Found

procedure TForm1.ButtonClick(Sender: TObject);
var
i : integer;
begin
for i:= 1 to ADOQuery1.RecordCount do
 begin
 if (ADOQuery1.Locate('id',i,[])=True) then
  begin
  ShowMessage('Found ='+IntToStr(i));
  end else;
 if (ADOQuery1.Locate('id',i,[])=False) then
  begin
  ShowMessage('Not found = '+IntToStr(i));
  end else;
 end;
end;