[znseday]

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
 aRect : TRect;
  s: string;
begin
  s:= '7чудДW8';
  aRect := Rect(40, 40, 50, 50);

  Canvas.Font.Name := 'Comic Sans MS';
  Canvas.Font.Color := clRed;
  canvas.Brush.Color := clGreen;

  Canvas.Font.Size := 72;
  DrawText(Canvas.Handle, s, -1, aRect, DT_CENTER or DT_VCENTER	 or DT_SINGLELINE	or DT_CALCRECT);
  Canvas.Rectangle(aRect);
  DrawText(Canvas.Handle, s, -1, aRect, DT_CENTER or DT_VCENTER	 or DT_SINGLELINE);

  aRect := Rect(40, 200, 200, 210);

  Canvas.Font.Size := 14;
  DrawText(Canvas.Handle, s, -1, aRect, DT_CENTER or DT_VCENTER	 or DT_SINGLELINE	or DT_CALCRECT);
  Canvas.Rectangle(aRect);
  DrawText(Canvas.Handle, s, -1, aRect, DT_CENTER or DT_VCENTER	 or DT_SINGLELINE);

end;