помогите, пожайлуста!(графика)

[sandro]

Задано изображение в .bmp формате, которое сохранено в фале.
Отобразить на экране это изображение путем случайного вибору точок из исходного файла
и перенести их на экран из задержкой каждого пикселя или группы пикселей.
Предусмотреть предохранение повторных переносов.

[selenux]

Если это нужно только для красоты, то лучше не делать анимацию таким образом. Апишку AnimateWindow еще никто не отменял.

[Alar]

самый простой выход - создание двухмерного массива. в одной ячейке массива - одна точка. для отображения на канву брать данные из массива.

[sandro]

Раскажите рожайлуста поподробней, а то я что то не понял!
Вот я сделал набросок этой же программы, проверьтк пожайлуса(может кто-то знает как лучше сделать)

procedure ShowPicture( path: string );
var
bm: TBitmap;
p: PPoint;
l: TList;
i, j: integer;
begin
bm := TBitmap.Create;
bm.LoadFromFile( path );

l := TList.Create;
for i := 0 to bm.Width do
for j := 0 to bm.Height do
begin
New( p );
p^.X := i;
p^.Y := j;
l.Add( p );
end;

Randomize;
while l.Count > 0 do
begin
i := Random( l.Count );
p := l[i];
Form1.Canvas.Pixels[p^.X,p^.Y] := bm.Canvas.Pixels[p^.X,p^.Y];
l.Delete( i );
Application.ProcessMessages;
Form1.Caption := IntToStr( l.Count );
end;

l.Free;
bm.FreeImage;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
ShowPicture( OpenDialog1.FileName );
end;