这段程序怎么在窗口上什么都画不出来?????我没分了

Question

procedure TForm1.Button1Click(Sender: TObject);
var
memoryBitmap:TBitmap;
CRect:TRect;
begin
CRect:=Rect(40,40,120,120);
memoryBitmap:=TBitmap.Create;
memoryBitmap.Canvas.Brush.Color :=RGB(100,255,100);
memoryBitmap.Canvas.Font.Color :=RGB(0,0,0);
memoryBitmap.Canvas.FillRect(CRect);
DrawText(memoryBitmap.Canvas.Handle,pchar('我爱你'),length('我爱你'),CRect,DT_CENTER or DT_VCENTER or DT_SINGLELINE);
self.Canvas.CopyRect(CRect,memoryBitmap.Canvas,CRect);
memoryBitmap.Free;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  memoryBitmap:TBitmap;
  CRect:TRect;
begin
  CRect:=Rect(40,40,120,120);
  memoryBitmap:=TBitmap.Create;
  memorybitmap.Width:=500;
  memorybitmap.Height:=500;
  memoryBitmap.Canvas.Brush.Color :=RGB(100,255,100);
  memoryBitmap.Canvas.Font.Color :=RGB(0,0,0);
  memoryBitmap.Canvas.FillRect(CRect);
  DrawText(memoryBitmap.Canvas.Handle,pchar('我爱你'),length('我爱你'),CRect,DT_CENTER or DT_VCENTER or DT_SINGLELINE);
  self.Canvas.CopyRect(CRect,memoryBitmap.Canvas,CRect);
  memoryBitmap.Free;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
memoryBitmap:TBitmap;
CRect:TRect;
begin
CRect:=Rect(40,40,120,120);
memoryBitmap:=TBitmap.Create;
//
MemoryBitmap.Width:=500;
MemoryBitmap.Height:=500;
//
memoryBitmap.Canvas.Brush.Color :=RGB(100,255,100);
memoryBitmap.Canvas.Font.Color :=RGB(0,0,0);
memoryBitmap.Canvas.FillRect(CRect);
DrawText(memoryBitmap.Canvas.Handle,pchar('我爱你'),length('我爱你'),CRect,DT_CENTER or DT_VCENTER or DT_SINGLELINE);
self.Canvas.CopyRect(CRect,memoryBitmap.Canvas,CRect);
//
Image1.Picture.Bitmap.Assign(MemoryBitmap);//显示一下吧
//
memoryBitmap.Free;
end;