dll如何跳出循环？

[CB1013]

BookMark:= DM.mtMember.Bookmark;
try
BookMarkList:= GridMember.SelectedRows;
for i:= 0 to BookMarkList.Count -1 do
begin
DM.mtMember.Bookmark:= BookMarkList[i];
HInst:=LoadLibrary('DoorCard.dll');
try
if HInst >0 then
begin
@ShowDoorfrm:=GetProcAddress(HInst,'ShowDoorfrm');
if @ShowDoorfrm<>nil then
begin
......
end;
end else
ShowMessage('DoorCard.dll文件不存在!');
finally
FreeLibrary(HInst);
end;
end;
finally
DM.mtMember.Bookmark:= BookMark;
end;
问：上面写法dll不能中途退出，如何做到中途退出?

[日立奔腾浪潮微软松下联想]

需要在循环中检查一个退出标志：
BreakOp := false;
for i:= 0 to BookMarkList.Count -1 do
begin
//...
if BreakOp then break;
end;
BreakOp在其他代码中根据条件设置

[lao_yunger]

try if HInst >0 then begin @ShowDoorfrm:=GetProcAddress(HInst,'ShowDoorfrm'); if @ShowDoorfrm<>nil then begin ...... end; end else ShowMessage('DoorCard.dll文件不存在!'); finally FreeLibrary(HInst); if getlasterror()<>0 then raise........ end;

[lao_yunger]

ShowMessage('DoorCard.dll文件不存在!'); 这句就不要了

[doloopcn]

就如上面说的先加一个状态字BreakOp

不过，就算加了，在For循环中能键盘手工退出的机率并不大，一般都有卡死的状态发生，应该在For循环开始的时候加入：
Application.ProcessMessages