llamar a un procedure desde otro

[negama]

Hola a todos

¿Alguien me podria decir como ejecutar un procedure desde otro? gracias.
me manda el error de

"Acces violation at address 0000000. Read of address 0000000"

tengo algo parecido a esto

.
.

type
tproc1=procedure;
.
.
var
agregar,checa : tproc1;

implementation

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

procedure Tagregar();
begin
.
.
end;
{$R *.DFM}
.
.

[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