Un peu meilleur :
variété
LastPos : TPoint = (x : 100 ; y : 100) ;
procédé TMainForm.WndProc (message de variété : TMessage) ;
variété
NewParamForm : TParamForm ;
commencer
si Message.Msg = puis msg_ShowParamForm
commencer
NewParamForm : = TParamForm.Create (individu) ;
NewParamForm.Top : = LastPos.x ;
NewParamForm.Left : = LastPos.y ;
Inc. (LastPos.x, 30) ;
Inc. (LastPos.y, 30) ;
NewParamForm.Show ;
extrémité
autrement
hérité ;
extrémité ;