[delphi.com.ar]

Bueno... si lo pensamos lógicamente, esa funcionalidad pertenece a la clase del formulario, por lo que te sugiero que no hagas un procedimiento regular, sinó que un método.

Diferencia sintáctica:

type
  TClase = class
  public
    procedure Metodo;
  end;

procedure ProcedimientoRegular;

implementation

procedure ProcedimientoRegular;
begin
  ..
end;

procedure TClase.Metodo;
begin
  Self....
end;