Type TPoint
Field x#,y#,r,g,b
End Type
kolvo = 100
For k=0 To kolvo
point.TPoint = New TPoint
point\x=Rnd(640)
point\y=Rnd(480)
point\r=Rand(255)
point\g=Rand(255)
point\b=Rand(255)
Next
Graphics 640,480
For point.TPoint = Each TPoint
Color point\r,point\g,point\b
Plot point\x,point\y
Next
Flip
;вот тут удаление всех экземпляров типа TPoint происходит
Delete Each TPoint
WaitKey()
End
Так можно удалять только если у тебя в полях типа содержатся переменные, такие как Числа (обычные - твои!) и строки.
Если же эти числа - указатели на объекты, к примеру, на картинку, то прежде чем удалить экземпляр типа, нужно удалить из памяти эту картинку (или любой другой объект, на который указывает переменная). Если звучит как-то непонятно, не расстраивайся, ты до того как связаться с "УДАЛИТЬ_КАЖДЫЙ" всё нормально удалял.
Теперь не знаю чё будет...