修改记录有点有关问题求指出

修改记录有点问题求指出
修改记录有点有关问题求指出这是主窗体上的修改按钮的代码。修改记录有点有关问题求指出这是修改窗体的Onshow事件,修改记录有点有关问题求指出这是确认修改的POST指令。为什么我只能修改第一条记录,哪里的代码少了?
------解决思路----------------------
procedure TForm1.btnPostOnClick(Sender: TObject);
begin
  qryTemp.First;
  while not qryTemp.Eof do
  begin
    if qryTemp.FieldByName('SEX').AsString = '男' then
    begin
      qryTemp.Edit();
      //...
      qryTemp.Post();
    end;
    qryTemp.Next();
  end;
  ModalResult := mrOK;
end;

纯手打代码,请自行修改调试。