var
entero:Integer;
begin
if edOrigen.Text=edDestino.Text then
Application.MessageBox(' No se puede Guardar el Archivo con el mismo Nombre','Error',mb_iconError)
else
if edOrigen.Text='' then
Application.MessageBox('Elija un Archivo de Origen para Encriptar','Advertencia',MB_ICONWARNING)
else
if edDestino.Text='' then
Application.MessageBox('Elija un Archivo de Destino para Encriptar','Advertencia',MB_ICONWARNING)
else
if TryStrToInt(edOrigen.Text, entero)then
Application.MessageBox('Debes Introducir una ruta valida','Error',MB_ICONERROR)
else
if TryStrToInt(edDestino.Text,entero)then
Application.MessageBox('Debes Introducir una ruta valida','Error',MB_ICONERROR)
else
begin
CifrarDescifrar(true);
rest.Lines.LoadFromFile(guardar.FileName);
end;
end;