把image的center 設置為true;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Image1.Left>0) then
begin
Image1.Left:=Image1.Left-10;
Image1.Width:=Image1.Width+20;
end
else
begin
timer1.Enabled:=false;
end

end;

end.