[DA-Bro]

Vanadiy777, да есть ещё нестыковки со скриптом.
И вот это объединить не знаю как.

procedure CurPageChanged(CurPageID: Integer);
begin
CurPageChanged1(CurPageID);
CurPageChanged2(CurPageID);
end;