загрузка картинки в timage программно

[Sparkman]

var Form1: TForm1;
    tmp : TBitmap;
implementation
{$R *.dfm}
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     if tmp=nil then
     tmp := TBitmap.Create;
     tmp.Assign(Image1.Picture.Bitmap);
     Image1.Picture.Bitmap.LoadFromFile('C:\ellipse.bmp');
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     if tmp<>nil then Image1.Picture.Bitmap:=tmp;
end;