[Страдалецъ]

Ну вот примерно так:

Код:

Var
  Bmp: TBitmap;
  Dlg: TOpenDialog;
begin
 Dlg := TOpenDialog.Create(nil);
 if not Dlg.Execute then Exit;
 Bmp := TBitmap.Create;
 Bmp.LoadFromFile(Dlg.FileName);
 Dlg.Free;
 ImageList1.Add(Bmp, nil);
end;