Error en GetTableNames

[*Caro*]

Hola a todos


Quiero saber si existe una tabla determinadada en mi base de datos, lo hice de la siguiente manera

Código Delphi [-]
function existeTabla(tabla:String):Integer;
var
  tablas:TStrings;
  existe,i:Integer;
begin
    existe:=0;
    tablas:=TStrings.Create;
    datamodule.basedatos.GetTableNames(tablas,FALSE); //Aqui el error
    FOR i:=0 TO tablas.Count-1 DO
      IF tablas[i]=tabla THEN
      begin
         existe:=1;
         break;
      end;
    result:=existe;
end;

pero me marca el siguiente error Abstract Error, creo que el error esta en mi variable de tipo TStrings que recibe GetTableNames, no entiendo que estoy haciendo mal cualquier idea o sugerencia u otra forma de hacerlo se los agradecere mucho.

Utilizo Ado y delphi7