Fórum Erro do windows ? #342824

procedure TFormBackup.FormShow(Sender: TObject);
begin
   // obtém o path corrente
   Path_Atual := GetCurrentDir;

   if ParamCount > 0 then BdPath := ParamStr(1);

   // inclui o diretório do banco de dados se for especificado
   if BdPath <> ´´ then
      begin
         if copy(BdPath, length(BdPath), 1) = ´\´ then
            ListBoxArquivo.Items.Add(BdPath + ´*.*´)
         else
            ListBoxArquivo.Items.Add(BdPath + ´\*.*´);
      end;

   DirEditPath.InitialDir := ExtractFilePath(Application.ExeName);
   OpenDialog.InitialDir  := ExtractFilePath(Application.ExeName);
   SaveDialog.InitialDir  := ExtractFilePath(Application.ExeName);

   ZipMaster1.DLLDirectory := ExtractFilePath(Application.ExeName);
   ZipMaster1.Load_Zip_Dll;
   ZipMaster1.Load_Unz_Dll;

   SortGrid1.Cells[0,0] := ´Nome´;
   SortGrid1.Cells[1,0] := ´Data´;
   SortGrid1.Cells[2,0] := ´Tamanho´;
   SortGrid1.Cells[3,0] := ´Taxa´;
   SortGrid1.Cells[4,0] := ´Comprimido´;
   SortGrid1.Cells[5,0] := ´Path´;

   Progresso.Progress := 0;
   Progresso.Visible := false;
   lblArquivo.Caption := ´´;
end;