[kapullok_2006]

Hola,
estuve probando las recomendaciones q me dijeron y no me funciona con lo sgte:

Código Delphi [-]
if (Form1.Memo1.Lines.Strings[i+offset]='*.jpg') then //parece q no me encuentra esta línea.Lo que quiero es q encuentre los jpg y los pase a bmp
       begin
         MyJPEG := TJPEGImage.Create;
         with MyJPEG do
         begin
              Form1.Memo1.Lines.Strings[i+offset]:='*.jpg';
              LoadFromFile(Form1.Memo1.Lines.Strings[i+offset]);
              MyBMP := TBitmap.Create;
              with MyBMP do
              begin
                Width := MyJPEG.Width;
                Height := MyJPEG.Height;
                Canvas.Draw(0,0,MyJPEG);
                Form1.Memo1.Lines.Strings[i+offset]:='*.bmp';
                SaveToFile(Form1.Memo1.Lines.Strings[i+offset]);
                Free;
             end;
             Free;
         end;

No quiero que se sobreescriban los bmp nuevos,con los jpg q he pasado a bmp.
Saludos.