evitando messagedlg mas de uma vez no while

ola pessoa gostaria de controlar atraveis de variavel somente uma ''pergunta de mensagem '' no while

eu fiz assim mas não esta dando certo :wacko:

vr_count:=0;

while not qryteste.eof.do begin

if Qrycad.fieldbyname('cd_departamento').value='100' then begin

vr_count:= vr_count+1;

if vr_count=1 then begin

if messagedlg('deseja lancar perda ',mtinformation,[mbyes,mbno],0,mbno)=mryes then begin

*

*

*

*

end;

end;

Qryteste.next;

end;