var _Bitmap:Tbitmap;
begin
_Bitmap:=TBitmap.Create;
 try

BitmapPrepare(_Bitmap,Image1.Picture.Bitmap.Canvas,rect(10,10,200,200)); //берем прямоугольник, в котором будет рисовать, и увеличия ваего в 3 раза копируем на временный битмап

//дальше работаем с _Bitmap.canvas как нам надо

_Bitmap.Canvas.Pen.Width:=3; //устанавливаем толщину в 3 раз больше

_Bitmap.Canvas.Ellipse(20*3,20*3,80*3,80*3);
_Bitmap.Canvas.MoveTo(50*3-1,60*3-1); //все координаты в 3 раза больше (хотя для лучшего эффекта, можно отнять еденицу - будет более смазано и качественно, главное не переборщить:))
_Bitmap.Canvas.LineTo(5*3,15*3);

_Bitmap.Canvas.Brush.Style:=bsclear;
_Bitmap.canvas.Font.Size:=_Bitmap.canvas.Font.Size*3; //тут правда косячно с размером...
_Bitmap.canvas.TextOut(2,2,'Im - super :)');

Alias(_Bitmap,Image1.Picture.Bitmap.Canvas,rect(10,10,200,200)); //вывод временного битмапа с уменьшением на "лицевой" битмап

 finally
_Bitmap.Free;
 end;
end;

unit uMain;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls;

type
 TfrmMain = class(TForm)
   timer1: TTimer;
   Image1: TImage;
   procedure FormCreate(Sender: TObject);
   procedure timer1Timer(Sender: TObject);
 private
   { Private declarations }
   procedure DrawArrows(c1, c2, c3 : TColor);
 public
   { Public declarations }
 end;

var
 frmMain: TfrmMain;
 CX, CY, HArrow, MArrow, SArrow : Integer;
 HA, MA, SA : Real;
 H, M, S, MS : word;
 tm1, tm2, tm3 : TBitmap;
implementation

{$R *.dfm}

procedure Alias(var SourceBitmap:TBitmap; CanvasOut:TCanvas; _R:TRect);
const
 MaxPixelCount = MaxInt div SizeOf(TRGBTriple);
type
 PRGBArray = ^TRGBArray;
 TRGBArray = array[0..MaxPixelCount-1] of TRGBTriple;
var
 x,y,cx,cy,cxi,totr,totg,totb,i: Integer;
 Row1,Row2,Row3,DestRow: PRGBArray;
begin
 for Y:=0 to (SourceBitmap.Height div 3)-1 do begin
   cy := y*3;
   DestRow := SourceBitmap.ScanLine[y];
   Row1:=SourceBitmap.ScanLine[cy];
   Row2:=SourceBitmap.ScanLine[cy+1];
   Row3:=SourceBitmap.ScanLine[cy+2];
  for x := 0 to (SourceBitmap.Width div 3)-1 do begin
     cx := x*3;
     totr := 0; totg := 0; totb := 0;
       for i := 0 to 2 do begin
         cxi := cx + i;
         totr := totr + Row1[cxi].rgbtRed + Row2[cxi].rgbtRed + Row3[cxi].rgbtRed;
         totg := totg + Row1[cxi].rgbtGreen + Row2[cxi].rgbtGreen + Row3[cxi].rgbtGreen;
         totb := totb + Row1[cxi].rgbtBlue + Row2[cxi].rgbtBlue + Row3[cxi].rgbtBlue;
       end;
       DestRow[x].rgbtRed := totr div 9;
       DestRow[x].rgbtGreen := totg div 9;
       DestRow[x].rgbtBlue := totb div 9;
   end;
  end;
 CanvasOut.CopyRect(_R,SourceBitmap.Canvas,rect(0,0,SourceBitmap.Width div 3,SourceBitmap.Height div 3));
end;

procedure BitmapPrepare(var SourceBitmap:Tbitmap; CanvasOut:TCanvas; _R:TRect);
begin
SourceBitmap.PixelFormat:=pf24bit;
SourceBitmap.Width:=(_r.Right-_r.Left)*3;
SourceBitmap.Height:=(_r.Bottom-_r.Top)*3;
SourceBitmap.Canvas.CopyRect(rect(0,0,SourceBitmap.Width,SourceBitmap.Height),Ca nvasOut,_R);
end;

procedure TfrmMain.DrawArrows(c1, c2, c3: TColor);
var r : LongBool;
begin
with tm3.Canvas do
begin
 SetBkMode(Handle, Transparent);
 Pen.Color := clBlack;
 Font.Name := 'Arial';
 Font.Style := [fsBold];
 TextOut(tm2.Width-60, tm2.Height div 2-8, Copy(DateToStr(Now),1,2));
 Pen.Color := c1;
 MoveTo(CX, CY);
 Pen.Width := 4;
 LineTo(CX+Round(HArrow  * 3 *  sin(HA)), CY-Round(HArrow * 3 * cos(HA)));
 MoveTo(CX, CY);
 Pen.Color := c2;
 Pen.Width := 3;
 LineTo(CX+Round(MArrow  * 3 * sin(MA)), CY-Round(MArrow  * 3 * cos(MA)));
 Pen.Color := c3;
 Pen.Width := 2;
 MoveTo(CX, CY);
 LineTo(CX+Round(SArrow  * 3 *  sin(SA)), CY-Round(SArrow * 3 *cos(SA)));
end;
image1.Picture.Assign(tm3);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
HArrow := CX - 30;
MArrow := CX - 50;
SArrow := CX - 70;
tm3 := TBitmap.Create;
tm1 := TBitmap.Create;
tm2 := TBitmap.Create;
tm1.LoadFromFile('background.bmp');
tm2.Height:=tm1.Height;
tm2.Width := tm1.Width;
BitmapPrepare(tm3, tm1.Canvas, rect(0,0,tm1.Width,tm1.Height));
CX := tm1.Width div 2;
CY := tm1.Height div 2;
timer1timer(sender);
// frmMain.clientWidth := tm1.Width;
//frmMain.clientHeight := tm1.Height;
// SetWindowRgn(Self.Handle, BitmapToRgn(tm1), True);
end;

procedure TfrmMain.timer1Timer(Sender: TObject);
begin
DecodeTime(Time, H, M, S, MS);
HA := (H/6 + M/360 + S/21600)*PI + PI;
MA := (M/30 + S/1800)*PI + PI;
SA := (S/30 + MS/30000)*PI + PI;
BitBlt(tm3.Canvas.Handle,
       0,0,
       tm3.Width,tm3.Height,
       tm1.Canvas.Handle, 0,0, SRCCOPY);
DrawArrows(clRed, clGreen, clBlue);
Alias(tm3, tm2.Canvas, Rect(0,0, tm3.Width,tm3.Height));
BitBlt(Canvas.Handle, 0,0,Width,Height, tm2.Canvas.Handle,0,0, SRCCOPY);
end;

end.

0 0 0
0 0 0
0 0 0

1 1 0
1 0 0
0 0 0