ADOTable1.TableName

if ADOTable1.Active then

ADOTable1.Close;

ADOTable1.TableName := TheNEWTableName

ADOTable1.Open;

شكرا على الرد،،،،