ADOQuery2->Bookmark=ADOQuery1->Bookmark;
Edit1->Text=ADOQuery2->FieldByName("字段1")->AsString;
ADOQuery2->Next();//挪到下一条记录
Edit2->Text=ADOQuery2->FieldByName("字段2")->AsString;
ADOQuery2->Next();
Edit3->Text=ADOQuery2->FieldByName("字段3")->AsString;
ADOQuery2->Bookmark=ADOQuery1->Bookmark;