Procedimientos y funciones en formularios MDI

[joumont]

Estoy realizando una aplicación MDI y he localizado el siguiente problema. Cuando intento realizar una accion a un objeto del formulario, por ejemplo:
EditText:='Hola';
si lo realizo en el evento "on show", funciona de manera correcta, pero si en vez de hacerlo "directamente" en el evento, intento derivarlo a un procedimiento, ejemplo:

procedure di_hola;
begin
Form1.Edit1.Text:='hola';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
inherited;
di_hola;
end;

Me da un error.

Necesito ayuda, ya que me encuentro atascado y no encuentro la solucion

Gracias