Bitmap.Canvas.TextOut 疑问，求助。

写了一个图片上添加文字的小程序，按回车键，文字添加到图片上，但是图片却消失了，求助。
程序如下：
procedure TForm1.EdtpKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=vk_return Then
begin
If Trim(Edtp.Text)<>'' Then
begin
Image1.Picture.Bitmap.Canvas.Font.Size:=20;
Image1.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
Image1.Picture.Bitmap.Canvas.TextOut(Edtp.Top,Edtp.Left,Edtp.Text);
end;
Edtp.Visible:=False;
Edtp.Text:='';
end;
end;
其中Edtp是个EDIT控件，用来输入文字的。
实际运行效果是图片消失了，Image1控件中没有了图片，而打开的原图也没有变化。
求高手们指点是哪里出的问题。