перенос кода, Internal error 200309141 Опции

[compiler]

Добрый день!
незнаю правильно ли я выбрал раздел, но проблема такая есть код на TP демонстрирующий работу модуля Crt, хотелось бы перенисти код на FP, да возникает проблемма Internal error 200309141 как от нее избавиться?
Заранее благодарен.

[volvo]

Окна создаются, у тебя в программе просто опечатка, которая мешает нормальной работе:

	X1 := Random(40)+1;
	Y1 := Random(12)+1;
	X2 := X1+Random(40);
	Y2 := Y2+Random(12); { <-- Здесь... Чему равно вначале Y2? }

Локальная переменная - поэтому она содержит мусор.

А чтобы убедиться, что окна создаются - попробуй сделать (после того, как исправишь опечатку, разумеется):

	Window(X1, Y1, X2, Y2);
        // Добавляем это после создания окна
        Textbackground(cyan);
	ClrScr;