Sin saber mas detalles se me ocurre que puedes poner la propiedad Stretch de un TImage a TRUE, y luego aumentar o disminuir el tamaño del TImage. Para darle un mejor aspecto podemos tambien encerrar el TImage dentro de un TScrollBox de esta manera la imagen no ocupara mas alla de un determinado tamaño y podremos movernos por ella usando las barras de desplazamiento. Este efecto es solo visual, si lo que quieres es modificar el tamaño real de la imagen ya estariamos hablando de alguna rutina para redimensionar imagenes, cosa que ya tratamos no hace mucho por aqui.
La cosa quedaria asi:
Código Delphi
[-]
if Opendialog1.Execute then
begin
Image1.Picture.LoadFromFile(Opendialog1.FileName);
Image1.Width:= Image1.Picture.Width;
Image1.Height:= Image1.Picture.Height;
end;
end;
begin
Image1.Width:= Image1.Width * 2;
Image1.Height:= Image1.Height * 2;
end;
begin
Image1.Width:= Image1.Width div 2;
Image1.Height:= Image1.Height div 2;