[Nex]

Вот пример. Думаю дальше разберешься. Если не разберешься, то таймер в помощь...

Type TText 
	Field msg$
	Field amount
End Type

Function iMessage (msg$)
	m.TText = New TText
		m\msg$ = msg$
		Insert m Before First TText
End Function

Function RenderMessage (x,y)
		y = y
		y = y +FontHeight()*2
		amount = 0
	For m.TText = Each TText
		If amount<36 Then
			Text_ (x,y,m\msg$,0,0,0)
				y = y+FontHeight()+5
				amount = amount+1
			Else
				Delete m
		EndIf	 
	Next
End Function

з.ы. данная функция выводит определенное колличество сообщение (строк).