Vaciar tablas desde Stored Procedure

[Triton]

Hola foreros, me persigue un problema al que quiero dar solución.

Uso Interbase 5.6, y lo que quiero hacer es un procedimiento que vacie las tablas que empiecen por 'TMP'...

El caso es que tengo este procedimiento:

create procedure BORRA_TABLAS_TEMPORALES
AS
declare variable nombre_tabla varchar(40);
declare variable aux smallint;
BEGIN

  for select distinct rdb$relation_name
  from rdb$relations
  where rdb$relation_name like 'TMP%'
  into :nombre_tabla
  do begin

    if ((nombre_tabla='TMP_VENTAS_US') or (nombre_tabla='TMP_VENTAS_US2')) THEN
      delete from :nombre_tabla;
    else
      aux=1;
  end
end

Pero Interbase no me deja compilarlo, ya sé que se puede hacer muy fácil desde Delphi con un Query, pero a mi me interesa tener este procedimiento en la Base De Datos.

Desde ya, muchas gracias