Hola.
Si has probado a ejecutar la select desde IBExpert, IBConsole o similar y no te ha dado problemas,
yo probaría a usar QuotedStr(), por si fuese problema de las comillas.
Código Delphi
[-]
SQL.Add( ' WHERE rdb$relation_name = '+QuotedStr(UpperCase(TableName)));
PD: Mejor pásalo como parámetro
Código Delphi
[-]
SQL.Add( ' WHERE rdb$relation_name = :Mitabla ');
...
...
ParamByName('Mitabla').AsString := Tablename;
Open;