No sé si te refieres al ejemplo que yo puse y que comentó seoane, o al ejemplo del QuickHull de seoane. Si es lo primero, sería bueno que detallaras más qué es lo que falla o qué es lo que tienes en la ventana. Te pongo una versión modificada que incluye un par de labels, un par de edits y una imagen dentro del panel principal. Como en el otro caso, puedes probar directamente el ejecutable si tienes Delphi 7, si no, basta que recompiles las fuentes.
Agrego
Si con lo de achicar las dimensiones te refieres a que la ventana emergente es de tamaño fijo, eso es así porque se construye con los parámetros (método CreateParams)
Código Delphi
[-]
Params.Style := WS_POPUP or WS_DLGFRAME;
En el nuevo ejemplo le he cambiado a:
Código Delphi
[-]
Params.Style := WS_POPUP or WS_SIZEBOX;
Con eso, el borde queda igual, pero ya se puede redimensionar.
// Saludos