Fórum Ordenação com Numero e String em um ListBox #411195

procedure TfrmVerImagemLic.AdvGlassButton8Click(Sender: TObject);
var
  LI: Integer;
  LFileExtension: string;
  Arq: TsearchRec;
begin
  DelArq(*.jpg, C:\G2DOC\Temp);
  if not DirectoryExists(C:\G2DOC\Temp\) then ForceDirectories(C:\G2DOC\Temp\);
  //SALVA AS IMAGENS NA PASTA TEMP
  try
    MSG.Visible := True;
    MSG.Caption := Preparando Imagens! Aguarde..;
    Screen.Cursor := crSqlWait;
    Application.ProcessMessages;
    DM.cds_Licitacao_Img.First;
    while not DM.cds_Licitacao_Img.Eof do
    begin
      TBlobField(DM.cds_Licitacao_Img.FieldByName(Imagem)).SaveToFile(C:\G2DOC\Temp\ + 00 + DM.cds_Licitacao_ImgPAGINA_NUMERO.Text + .jpg);
      DM.cds_Licitacao_Img.Next
    end;
  finally
    MSG.Visible := False;
    Screen.Cursor := crDefault;
    DM.cds_Licitacao_Img.First
  end;

  //CARREGA NO LIST BOX E GERA O ARQUIVO PDF COM O COMPONENTE eDocEngine
  if FindFirst(C:\G2DOC\Temp\*.jpg, faArchive, Arq) = 0 then
  begin
    try
      MSG.Visible := True;
      MSG.Caption := Gerando PDF. Aguarde..;
      Screen.Cursor := crSqlWait;
      Application.ProcessMessages;
      repeat
        Application.ProcessMessages;
        ListBox1.Items.Add(Arq.Name);
      until FindNext(Arq) <> 0;
      if (ListBox1.Count = 0) then Exit;
      if (RG1.ItemIndex = 0) then
      begin
        dlgSave1.FileName := Licitacao  + DM.cds_Licitacao_ImgNUMERO_PROCESSO.Text;
        if not dlgSave1.Execute then Exit;
        with gtPDFEngine1 do
        begin
          FileName := dlgSave1.FileName;
          MeasurementUnit := muPixels;
          Preferences.ProcessAfterEachPage := False;
          for LI := 0 to (ListBox1.Count - 1) do
          begin
            img1.Picture.LoadFromFile(C:\G2DOC\Temp\ + ListBox1.Items[LI]);
            Page.PaperSize := Custom;
            Page.Width := img1.Picture.Width;
            Page.Height := img1.Picture.Height;
            if (LI <> 0) then
              NewPage
            else
              BeginDoc;
            LFileExtension := ExtractFileExt(ListBox1.Items[LI]);
            if (((CompareText(LFileExtension, .wmf) = 0) or
              (CompareText(LFileExtension, .emf) = 0)) and (not chk1.Checked)) then
            begin
              PlayMetafile(img1.Picture.Metafile);
            end
            else
            begin
              DrawImage(0, 0, img1.Picture.Graphic);
            end;
          end;
          EndDoc;
        end;
      end;
      FindClose(Arq);
    finally
      DelArq(*.jpg, C:\G2DOC\Temp);
      ListBox1.Clear;
      MSG.Visible := False;
      Screen.Cursor := crDefault;
    end;
  end;
end;