попробуй просто весь екран зарисовать белым прямоугольником
вот пример кода
PROGRAM ClearScreen;
BEGIN
DrawText('Hello World', 0, 0);//Рисуем начальный текст
Repaint;
Delay(1000);
DoSomething;//Что-то делаем
SetColor(255, 255, 255);//Устанавливаем белый цвет
FillRect(0, 0, GetWidth, GetHeight);//Рисуем белый заполненый прямоугольник размером с екран
Repaint;
SetColor(0, 0, 0);//Возвращаем назад черный цвет что-бы текст был видим (а то щас то цвет белый)
DrawText('Goodbye World', 0, 0);//Рисуем окончательный текст
Repaint;
Delay(1000);
END.
если что не понятно пиши
хотя мне кажеться вопросов быть не должно