Програмное уменьшение картинки Опции

[DekaR]

Пользователь с помошью OpenPictureDialog открывает картинку(jpg,bmp или gif). Программа должна её уменьшить или увеличить до размеров 290*290 и в уменьшеном виде сохранить.Сожранить-не проблемма,а вот уменьшить/увеличить....

[DekaR]

У и как?Там в качестве "некачественного" есть пример :

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Form1.Canvas.Font.Size := 24; 
  Form1.Canvas.TextOut(0, 0, 'Text'); 
  Form1.Canvas.CopyRect(Bounds(0, 50, 25, 10), Form1.Canvas, 
  Bounds(0, 0, 100, 40)); 
end;

А мне нужно:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OPD1.Execute then begin
Image1.picture.loadfromfile (OPD1.FileName);
label3.Caption:=OPD1.FileName;
{Здесь надо вставить код,который уменьшает изборажение в Image1.picture до размеров 290*290}
Image1.Show;
Form1.podpis.SetFocus;
end;
end;