var
  Form1: TForm1;
  bm : TBitmap;
  im : TBitmap;
  al : Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  bm:=TBitmap.Create;
  bm.Width:=128;
  bm.Height:=128;
  im:=TBitmap.Create;
  im.LoadFromFile('D:\MyDocs\My Pictures\untitled.bmp');
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Canvas.Draw(0, 0, bm);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  bm.Canvas.Draw(0, 0, im);
  bm.Canvas.Pen.Color:=$00FF00;
  bm.Canvas.MoveTo(64, 64);
  bm.Canvas.LineTo(round(sin(al/60*pi*2)*64)+64, round(cos(al/60*pi*2)*64)+64);
  dec(al);
  Form1.Canvas.Draw(0, 0, bm);
end;