qGaleria.Open;
    qGaleria.First;
    while not qGaleria.Eof do
    begin
      imObrazLista.MIO.LoadFromFile(qGaleria.FieldByName('nazwa').AsString);
      imObrazLista.ImageInfoText[i].Caption := ExtractFileName(qGaleria.FieldByName('nazwa').AsString);
      imObrazLista.ImageID[i] := qGaleria.FieldByName('idx_galerii').AsInteger;
      inc(i);
      qGaleria.Next;
    end;
    imObrazLista.Update;