Помогаем:
DrawText('Текст', 0, 0); //Выводим текст
repaint; //перерисовка
while getkeyclicked<>KE_KEY5 do delay(1); //ждем пока нажмут "5"
SetColor(255,255,255); //цвет белый
FillRect(0,0,GetWidth,GetHeight); //зарисовываем экран
SetColor(0,0,0); //цвет черный
DrawText('Слово', 0, 0); //выводим слово на экран
repaint; //перерисовка
Delay(5000); //ждем 5 секунд