🚀 go-pugleaf

I have created a primary key on my student information table,
autoincrementing.  Now I would like that number to becopied on to the other
tables that I have created.

How I did the autoincrementing was a little odd I am wondering if there is a
better way to do this:

    Data->Table->Connection = Data->Connection;
    Data->Table->TableName = "StudentInformation";
    Data->DataSet->CommandType = cmdTable;
    //opens student information
    Data->DataSet->CommandText = "StudentInformation";
    Data->DataSet->Open();
    Data->Table->Active = true;
    Data->Table->Insert();
    Data->Table->FieldByName("ID")->AsInteger = Data->DataSet->RecordCount +
1;  //checks the number of records and adds one, every time I add a new one.
    Data->Table->FieldByName("SID")->AsInteger = StrToInt(Edit1->Text);
    Data->Table->FieldByName("Last")->AsString = Edit2->Text;
    Data->Table->FieldByName("First")->AsString = Edit3->Text;
    Data->DataSet->Close();
    Data->Table->Post();
    Edit1->SetFocus();
    Button1->Caption = "Next Student";
    Edit1->Clear();
    Edit2->Clear();
    Edit3->Clear();


Thanks.

Lee