图像的拉伸

通过改变Timage组件的width 和height实现图像的拉伸，实际上是将未显示出来的部分显示出来

procedure TForm22.Timer1Timer(Sender: TObject);
begin
  Image1.Width:=Image1.Width+2;
  if Image1.Width>800 then
    Timer1.Enabled:=false;

end;

procedure TForm22.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=true;
end;

procedure TForm22.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;