var
jpg: TJpegImage;


......

if openpicturedialog1.Execute then
begin
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);
finally
jpg.Free;
end;

Reply