procedure TForm1.BitBtn1Click(Sender: TObject);
var
  wf, owf: HFONT;
  DC: HDC;
  MyRect : TRect;
  FontWidth,FontHeight : integer;
begin
  Label1.Caption := 'Просто текст';
  MyRect := Rect( 0 , 0 ,Label2.Width,Label2.Height);
  FontHeight := Label2.Height;
  FontWidth  :=  3 ;

  Label2.Canvas.FillRect(MyRect);
  wf := CreateFont(
    FontHeight,FontWidth,  0 ,  0 , FW_NORMAL ,  0 ,  0 ,  0 ,
    RUSSIAN_CHARSET,
    OUT_DEFAULT_PRECIS,
    CLIP_DEFAULT_PRECIS,
    DEFAULT_QUALITY,
    DEFAULT_PITCH or FF_DONTCARE,
    'MyFont');
  owf := SelectObject(Label2.Canvas.Handle, wf);
  DrawText(Label2.Canvas.Handle, PChar('Просто текст'), - 1 ,MyRect,
    DT_LEFT or DT_TOP or DT_NOPREFIX);
  DeleteObject(SelectObject(Label2.Canvas.Handle, owf));
end;