Hola.
Fijate que el ejemplo que te puse más arriba dice:
Código Delphi
[-]
type
TForm1 = class(TForm)
btAbrir: TButton;
procedure btAbrirClick(Sender: TObject);
private
procedure OpenDialogShow(Sender: TObject);
public
end;
Donde se vé claramente que el procedimiento
OpenDialogShow es un método de la clase TForm1.
En el código que pusiste,
OpenDialogShow está declarado como un procedimiento regular y eso es lo que te marca el error.
La declaración de la cabecera del procedimiento debería ser:
Código Delphi
[-]
procedure TNombre_de_tu_form.OpenDialogShow(Sender: TObject);
Te adjunto una muestra probada y funcionando para que puedas ver con tranquilidad como implementarlo.
Un saludo