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;
...