Delphi-Help

function TForm1.Grid_Edit(dbgIn: TDBGrid; qryIn: TQuery): Longint;  

begin 

  Result := 0; 

  with dbgIn.DataSource.DataSet do 

  begin 

    First; 

    DisableControls; 

    try 

      while not EOF do 

      begin 

        if (dbgIn.SelectedRows.CurrentRowSelected = True) then 

        begin 

          //Здесь можно обработать строку илил вызвать функцию для обработки

          Inc(Result); 

        end; 

        Next; 

      end; 

    finally 

      EnableControls; 

    end; 

  end; 

end; 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

  Form1.Caption := 'Обработано: ' + IntToStr(Grid_Edit(DBGrid1, Query1)); 

end;