[Страдалецъ]

Так кто вам мешает ее изначально не совершать? Проверьте на наличие уже имеющейся таблицы в БД.

Код:

function TableExists(AdoConnection: TAdoConnection; TableName: String): Boolean;
Var
  TableNames: TStringList;
  i: Integer;
begin
 Result := False;
 TableNames := TStringList.Create;
 ADOConnection.GetTableNames(TableNames);
 for i := 0 to TableNames.Count - 1
 do if TableNames.Strings[i] = TableName
    then begin
         Result := True;
         Break;
         end;
 TableNames.Free;
end;