Change Jpg Size

[cosmic 0]

varjpg: TJpegImage;......if openpicturedialog1.Execute thenbegin jpg:= TJpegImage.Create; try jpg.Loadfromfile( openpicturedialog1.filename ); if jpg.Height>jpg.Width then begin jpg.Height:=round(jpg.Height/20); jpg.Width:=round(jpg.Width/20); end;EDBImage1.Picture.LoadFromFile(openpicturedialog1.FileName);finallyjpg.Free;end;