procedure TForm1.Button1Click(Sender: TObject);
var
 dc: hdc;
 SaveIndex: integer;
 bm: TBitmap;
begin
 bm := TBitmap.Create;
 bm.LoadFromFile('c:download/est.bmp');
 Canvas.Font.Name := 'Arial';
 Canvas.Font.Height := 100;
 dc := Canvas.Handle;
 SaveIndex := SaveDc(Dc);
 SetBkMode(dc, TRANSPARENT);
 BeginPath(dc);
 Canvas.TextOut(0, 0, 'Many TeamB guys ignore me');
 EndPath(dc);
 SelectClipPath(dc, RGN_COPY);
 Canvas.Draw(0, 0, bm);
 RestoreDc(dc, SaveIndex);
 bm.Free;
end;"