while(true) do
  begin
    id:=adotable1.FieldByName('id').AsString;
    bs:=treeview1.Items.Add(nil,id);
    bs.Data:=site_type;
    make_SubTree(bs,adotable2,id);

    if adotable1.FindNext = false then break;
  end;

이게 읽어 오는 소스인데요.

if adotable1.findnext가 false가 되면 'BOF 또는 EOF가 참이거나, 현재 레코드를 삭제했습니다' 라는 메시지와함께
run이 종료됩니다. 만들어진 실행파일로는 잘 작동합니다. 컴포넌트에서 발생하는 에러같은데.

좋은 방법 아시는분 도움 부탁드립니다.