Delphi - definir procedure externo (soy principiante)

Hola, supongo que sera una tonteria pero no acabo de dar con ello.

Mi intencion es definir un procedimiento que pueda se llamado desde varios forms y que tiene un unico parametro que es un numero entero.

En uno de los forms lo defino:

procedure rellena (id : Integer);
Begin
case idCPU of
1:
Begin
(...)
End;
( y etc.)

la cuestion es que no se ni donde ni como declarar este procedimiento para poder ser usado desde otros forms.

Estoy intentando poner en la seccion public

procedure Rellena(id : Integer);

pero me da este error

[Error] automata.pas(117): Unsatisfied forward or external declaration: \'TfrmPrincipal.RellenaCPU\'

Muchas gracias por cualquiera de vuestros consejos y lamento estar tan perdido...

RAUL

Hola. Tienes un error de concepto. El procedimiento lo debes declarar en la sección public pero a la hora de implementarlo debes poner además del nombre del procedimiento el nombre del formulario al que peternece. En tu caso debe ser:

Procedure TfrmPrincipal.Rellena(id : Integer);
begin
end;

espero te quede claro.

OK, muchas muchas gracias, Si, era un error de concepto.
un saludo.

RAUL

De esa manera que te han dicho estás creando un método en la propia clase con lo que para cada form deberás repetir el sistema.
Mejor haz lo siguiente:

Crea una unit de librerías, p.e, ExtLib.pas:

*********************
unit ExtLib;

interface

uses
.... <las que necesites, en principo ninguna>

procedure Rellena(Id:Integer);

implementation

procedure Rellena(Id:Integer);
begin
<..el código..>
end;

end.
******************************

Ahora, en cualquier parte donde desees utilizar este método/procedimiento sólo debes de poner ExtLib en el uses, y ya puede usarlo.
NOTA: No hace falta que añadas ExtLib.pas al proyecto.