De los errores, creo que solucionando el que dice Procedure ‘local’ must declare a body se solucionan todos.

Si ejecutas el snippet tprocedure, verás que la sintaxis para un procedimiento es:

local procedure MyProcedure()
var
myInt: Integer;
begin

end;

Tu procedimiento tiene la sección var (de variables locales).
Pero una vez acabada la sección de variables locales, no tienes la etiqueta begin, que es la que abre el body de la función. De ahí que el error diga que el procedimiento tiene que declarar un body.

Al faltar esta etiqueta begin creo que después el compilador se hace un lio y te da otros errores que realmente no aplican.

Un saludo,
Cristina Nicolàs