[Lmas]

Hola negama

El error está en que llamas a una variable de tipo "procedure" que no está asignada.

procedure Tcheca();
begin
agregar(); // **** aqui quiero llamar al otro procedure***
end;


para llamar correctamente tedrías que hacer:

procedure Tcheca();
begin
// asignar la variable
agregar := Tagregar;
// Ahora se puede llamar
agregar();
end;

También deberá estar declarado el procedimiento Tagregar antes de esa asignación.

SalU2