Y otra vuelta de tuerca mas.. :D
Código SQL
[-]
for select empresa, cod_postal, codigo_cliente, num_direccion,
cast( substring(cod_postal FROM 1 FOR 2) as integer)
from cli_direcciones
into :empresa, :codigo_postal, :cliente, :direccion, :provincia do
begin
Hasta luego.
;)