Бит более лучший:
var
LastPos: TPoint = (x: 100; y: 100);
процедура TMainForm.WndProc (сообщение var: TMessage);
var
NewParamForm: TParamForm;
начните
если Message.Msg = msg_ShowParamForm после этого
начните
NewParamForm: = TParamForm.Create (собственная личность);
NewParamForm.Top: = LastPos.x;
NewParamForm.Left: = LastPos.y;
Inc (LastPos.x, 30);
Inc (LastPos.y, 30);
NewParamForm.Show;
конец
еще
унаследовано;
конец;