Fórum onde esta o erro #338861

estou tetando cria uma procedure e nao consigo e so somar as horas neste intervalo mas esta dando erro alguem pode me ajudar ?
FB 1.5

CREATE PROCEDURE CHORATRAB(HORA1 TIME, HORA2 TIME)
RETURNS (rHORA_TRAB TIME )
AS
declare variable VHORA1 time;
declare variable VHORA2 time;
declare variable VHRPAR TIME;
begin
VHORA1 = HORA1 ;
VHORA2 = HORA2 ;
VHRPAR = ´00:20´;
WHILE (VHORA1 <= VHORA2) do begin
rHORA_TRAB = VHORA1 ;
suspend;
VHORA1=VHORA1 + VHRPAR ;
end
end

obrigado