if Query1.FieldByName('Sor_Szam').AsInteger < 1 then
    begin
      Query1.Edit;
      Query1.FieldByName('Sor_Szam').AsInteger:=1;
      Query1.Post;
      Query1.Next;