procedure TForm1.FormCreate(Sender: TObject);
var
Count:integer;
begin
Count:=0;
ADOQuery1.DisableControls();
ADOQuery1.Open();
if Not ADOQuery1.IsEmpty() then
begin
ADOQuery1.Fields.Add(NameField);
While ADOQuery1.Eof do
begin
Count:=Count+1;
ADOQuery1.FieldByName('nameField').AsInteger :=Count;
ADOQuery1.Next();
end;
end;
ADOQuery1.EnableControls();
end;