no guarda ficheros bmp en carpeta

[kapullok_2006]

Aqui está:

<DIV class=frame_codigo_delphi><DIV class=texto_codigo_delphi id=delphi_div_46ee3bb322ba9>
[delphi]
<SPAN class=comment>//..

private

{ Private declarations }

procedure WMDEVICECHANGE(var Msg: TMessage); message WM_DEVICECHANGE;



public

{ Public declarations }

end;

var

Form1: TForm1;

lista_archivos: TStringList;

i: integer;

cantidades: TStringList;

offset: integer =0;

//AÑadido 11 Sept

lista_aux:TStringList;



implementation

{$R *.dfm}

uses Unit2;

const foto_en_blanco = 'C:\foto_en_blanco.bmp';

const

DBT_DEVICEARRIVAL = $8000;

//----------------------------------------------

procedure RellenarFotos(f: integer); forward;

procedure RellenarFotos(f: integer);

begin

//si posicion es < q lineas-> cargamos en Image1 el directory metido de la posicion de FLB1


if f