Bueno lo soluciones haciendolo a travez de procedimientos y funciones publicadas....
ejemplo
Código Delphi
[-]
type caracter30 = array [0..29] of char;
const
Frm_Maquina = AutoID;
function HandleEvent(var Event: EventType): Boolean;
Procedure inicializar_form(Parametro:caracter);
Procedure inicializar_form(Parametro:caracter);
Begin
PSLabel.SetCaption(Label1,'Parametro');
end