1:
2:
3:

Image1.Picture.Bitmap.Width:=50;
Image1.Picture.Bitmap.Height:=50;
Image1.Picture.SaveToFile('C:\test2.bmp');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.ResizeImage(newWidth,newHeight: Integer);
begin
  SetStretchBltMode(Image2.Canvas.Handle, Halftone);
  StretchBlt(Image2.Canvas.Handle, 0,0,newwidth,newheight,Image1.Canvas.Handle,0,0,Image1.Width,Image1.Height,SRCCOPY);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ResizeImage(50,50);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
  DirectoryListBox1.Drive := DriveComboBox1.Drive;
  FileListBox1.Drive := DriveComboBox1.Drive;
  FileListBox1.Directory := DirectoryListBox1.Directory;
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
  DirectoryListBox1.Drive := DriveComboBox1.Drive;
  FileListBox1.Drive := DriveComboBox1.Drive;
  FileListBox1.Directory := DirectoryListBox1.Directory;
end;					

1:
2:
3:

FOR i:=0 TO filelistbox1.count-1 DO
  IF pos(filelistbox1.Items[i],'.jpg')<>0 THEN
     image1.Picture.LoadFromFile.filelistbox1.Items[i];