Mine

procedure TForm1.Remove_ZerosExecute(Sender: TObject);
var szamlalo : integer;
begin
  AdoQuery1.DisableControls;
  szamlalo:=0;
  AdoQuery1.First;
  while szamlalo < AdoQuery1.RecordCount do
    begin
      if ((AdoQuery1.FieldByName('Ido').AsString = '00:00') and (AdoQuery1.FieldByName('Leiras').AsString = 'Éjfél')) then
        begin
          AdoQuery1.Delete;
        end;
      AdoQuery1.Next;
      szamlalo:=szamlalo+1;
    end;
  AdoQuery1.EnableControls;
  INFO_Lines.Text:=inttostr(AdoQuery1.RecordCount);
  AdoQuery1.First;
end;