Image控件里画了一个方框，然后再把字画在这个方框里，如何搞

Image控件里画了一个方框，然后再把字画在这个方框里，怎么搞？
RT
方框的左上角和右下角坐标都知道了，画字的时候最好不要让方框消失

[解决办法]
什么叫画字，你把具体流程描述清楚
[解决办法]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
self.Image1.Canvas.Rectangle(0,0,100,100);
self.Image1.Canvas.TextOut(45,45,'哈哈');
end;

end.

[解决办法]
用Image1.Canvas.TextWidth判断你要写的文字的总长度，然后根据长度折叠显示
[解决办法]
在IMAGE的另一个区域再次画字的时候前一个区域的字照样要再画一次。
[解决办法]
OnPaint