test:=TBitmap.Create;
test.LoadFromFile('1.bmp');

procedure TForm1.FormCreate(Sender: TObject);
begin
 Button1.Left:=0; Button1.Top:=0;
 CheckBox1.Left:=80; CheckBox1.Top:=4; CheckBox1.Width:=140;
 CheckBox1.Caption:='Сохранить в Lotto.bmp';
 Width:=50*9+30; Height:=Button1.Height+50*3+30+GetSystemMetrics(SM_CYCAPTION);
end;

procedure TForm1.Button1Click(Sender: TObject);
var BFon, BLogo: TBitmap; C, R, N: Byte; Rc: TRect; Bt: set of Byte;
begin
 BLogo:=TBitmap.Create;
 try
  //Готовим лого-картинку
  with BLogo do begin
   Width:=50;
   Height:=50;
   Canvas.Rectangle(Canvas.ClipRect);
   Canvas.Brush.Color:=clInfoBk;
   Canvas.Pen.Width:=2;
   Canvas.Pen.Color:=clRed;
   Canvas.Ellipse(5, 5, 45, 45);
   Canvas.Font.Style:=[fsBold];
   Canvas.Font.Color:=clNavy;
   Canvas.TextOut(10, 18, 'Lotto');
  end;
  BFon:=TBitmap.Create;
  try
   //Тут "лепим" все картину в целом
   with BFon do begin
    Width:=50*9;
    Height:=50*3;
    Canvas.Font.Name:='Times New Roman';
    Canvas.Font.Size:=25;
    for C:=0 to 8 do
     for R:=0 to 2 do begin
      //Если истина то рисуем цифирку
      if Random(5)<2 then begin
       Rc:=Rect(50*C, 50*R, 50+50*C, 50+50*R);
       Canvas.Rectangle(Rc);
       repeat
        N:=1+Random(99);
       until not (N in Bt);
       Include(Bt, N);
       DrawText(Canvas.Handle, PChar(IntToStr(N)), -1, Rc, DT_SINGLELINE or DT_CENTER or DT_VCENTER);
      end else Canvas.Draw(50*C, 50*R, BLogo); //иначе лого
     end;
   end;
   Canvas.Draw(10, Button1.Height+10, BFon);
   if CheckBox1.Checked then BFon.SaveToFile(ExtractFilePath(Application.ExeName)+'Lotto.bmp');
  finally
   BFon.Free;
  end;
 finally
  BLogo.Free;
 end;
end;