Novato en Firebird

[defcon1_es]

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;