[zip000]

Код:

procedure TForm2.FormCreate(Sender: TObject);
begin
sky:=TBItMap.create;
aplane:=TBitMap.create;
sky.LoadFromFile('sky.bmp');
aplane.LoadFromFile('aplane.bmp');
aplane.Transparent:=True;
end;

procedure TForm2.FormPaint(Sender: TObject);
begin
Form2.Canvas.Draw(0,0,sky);
Form2.Canvas.Draw(20,20,aplane);
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
sky.Free;
aplane.Free;
end;

Можешь также кинуть на форму таймер, поставить его интервал 100, и в событии OnTimer писать Form2.Refresh.