Tiene un par de detalles, pero si funciona en Delphi6, simplemente, que al entrar hay que ignorar una propiedad (debe estar creado con D7 o superior) y en D6 no la encuentra y modificar una referencia a:
Código Delphi
[-]
Application.CreateForm(TForm1, form1);
por ésta:
Código Delphi
[-]
Application.CreateForm(TfrmMain, frmMain);
Ahí va el ejemplo corregido (que te debe funcionar en D6).