var
  LDS: TDataSet;
  LFld: TField;
  LVal: TDateTime;
  LEqual: Boolean;
begin
  LDS := DBGrid.DataSource.DataSet;
  // Если датасет закрыт, пустой или стоим на первой записи, то выходим
  if not LDS.Active or LDS.IsEmpty or (LDS.RecNo = 1) then 
    Exit;
  LFld := LDS.FieldByName('VREMJA');  // А лучше поле назвать "TIME"
  LVal := LFld.AsDateTime;  // запоминаем текущее значение
  LDS.DisableControls;  // Блокируем перерисовку грида
  try
    LDS.Prior;  // Становимся на предыдущую запись
    LEqual := LVal = LFld.AsDateTime;  // Сравниваем два значения
    LDS.Next;  // Возвращаемся на исходную запись
    if LEqual then begin  // Если поля равны, то ...
      .......
    end;
  finally
    LDS.EnableControls;
  end;
end;