procedure TForm1.Button1Click(Sender: TObject);
var
i: word;
bit: Tbitmap;
jpg: TJpegImage
begin
if OpenDialog1.Execute then begin
jpg :=TJpegImage.Create;
bit:=Tbitmap.Create;
try
for i:=0 to OpenDialog1.Files.Count to begin
jpg.LoadFromFile(OpenDialog1.Files);
bit.Assign(jpg);
bit.Canvas.CopyRect(rect(0,0,bit.Width,300),bit.Canvas,rect(0,0,bit.Width,bit.Height));
jpg.Assign(bit);
jpg.SaveToFile(OpenDialog1.Files);
end;
finally
jpg.Free;
bit.Free;
end;
end;
end;
