formulario de pedidos

Ola,estou usando as tabelas do acces ou seja adotable,este codigos pedem para abrir o database,alguem poderia modicar para o adotable,desde ja fico agradecido

procedure TFormCadPedidos.RecalculaPedido;
var
TmpTable: TTable;
Total: Currency; // armazena valores do tipo moeda
begin
// cria um objeto Table via codificação
TmpTable := TTable.Create(Application);
try
// define DatabaseName e TableName via codificação
TmpTable.DatabaseName := TableItens.DatabaseName;
TmpTable.TableName := TableItens.TableName;
TmpTable.Open;
TmpTable.FindKey([TablePedidosNumeroPedido.AsInteger]);
Total := 0; // inicializa a variavel totalizadora
while (not TmpTable.Eof) and
(TmpTable.FieldByName('NumeroPedido').AsInteger =
TablePedidosNumeroPedido.AsInteger) do
begin
// Acumula o Total da linha
Total := Total + (TmpTable.FieldByName('Preco').AsCurrency *
TmpTable.FieldByName('Quantidade').AsFloat);
TmpTable.Next; // próximo registro
end;
finally
TmpTable.Close; // fecha a tabela
TmpTable.Free; // libera objeto da memória
end;
StaticTextTotal.Caption := FormatCurr('###,###,##0.00', Total);
end;