Duda con Try... Except

[ecfisa]

Hola danielmj.

Intenta de este modo:

Código Delphi [-]
var
  Error: LongWord;
begin 
  Error := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    try
      principal.memo1.Lines.Add(CalcHash(principal.labedit1.Text,haSHA1));
      principal.Memo1.Lines.SaveToFile(principal.labEdit2.Text+ '\'+' Archivo Hash.crc');
    except
      raise Exception.Create('Unidad seleccionada no valida. Selecciona una unidad' +
        chr(13)+'de disco duro local que sea accesible.');
    end;
  finally
    SetErrorMode(Error);
  end;
...

Saludos