resize jpg fra listbox

Hejsa.

jeg vil høre om nogle kan hjælpe mig med dette lille program
jeg har en listbox1 som bliver fodret med paths til jpg billeder
som skal resizes og gemmes på samme lokation (path) med samme fil navn. eks. c:\arkiv\resizes\test.jpg

jeg har med lidt hjælp kommet frem til denne stykke kode, men det bruger opendialog , filename, hvordan kan man få den til at loade filerne listet til listboxen en efter en og gemme dem igen ?

koden ser således ud:

procedure TForm1.Button4Click(Sender: TObject);
var
  bmp: TBitmap;
  jpg: TJpegImage;
  scale: Double;
begin
  if opendialog1.execute then
  begin
    jpg := TJpegImage.Create;
    try
      jpg.Loadfromfile(opendialog1.filename);
      if jpg.Height > jpg.Width then
        scale := 50 / jpg.Height
      else
        scale := 50 / jpg.Width;
      bmp := TBitmap.Create;
      try
        {Create thumbnail bitmap, keep pictures aspect ratio}
        bmp.Width := Round(jpg.Width * scale);
        bmp.Height:= Round(jpg.Height * scale);
        bmp.Canvas.StretchDraw(bmp.Canvas.Cliprect, jpg);
        {Draw thumbnail as control}
        Self.Canvas.Draw(100, 10, bmp);
        {Convert back to JPEG and save to file}
        jpg.Assign(bmp);
        jpg.SaveToFile(opendialog1.filename);
      finally
        bmp.free;
      end;
    finally
      jpg.free;
    end;
  end;
end;
end.