ADO Database Delphi

With Table1 do
Begin
Active := False;
DatabaseName := 'dbname';
TableName := 'tablename';
EmptyTable;
End;
//yada
With Table1 do
Begin
Active := False;
DatabaseName := 'dbname';
TableName := 'tablename';
DeleteTable;
End;