На канве рисую текст, но проблема на канвеесть рисунок который ресайзится и в месте с ним мне нужно ресайзить и текст, а текст то к пикселям привязан и не ресайзится , посоветуйтечто нибудь!!!
Текст вывожу через TextOut or TextDraw

Размер рисунка изменяется автоматом при прорисовке, а текст не меняет свой размер,
можно конечно изменять Font.Size но даже при значении 1 текст слишком велик! Мне нужен меньше

procedure TForm1.FormPaint(Sender: TObject);
begin
SetMapMode(FORM1.Canvas.Handle, MM_ANISOTROPIC);
SetViewPortOrgEx(FORM1.CANVAS.Handle, ((HWidth div 2)+Sx), ((HHeight div 2)+Sy), nil);
SetWindowExtEx(FORM1.CANVAS.Handle, 200+10*Mashtab, 200+10*Mashtab, nil);
SetViewPortExtEx(FORM1.CANVAS.Handle, HWidth, -HHeight, nil);
Процедура рисования
end;