i am useing delphi7 and i want to do this:-

procedure TFormrep.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
with form3.ADOQ do begin
while not Eof do begin
IF FieldByName('SEX').Value ='F' THEN
QrepSEX.Caption :='female';

Next;
end;
end;
end;


there is no response (action) when i run the code.