problema al comparar

[jorge82]

Hola, tal vez te sirva así:

Código Delphi [-]
var
  S1, S2: string;
  Entero: Integer;
begin
  S1 := edOrigen.Text;
  S2 := edDestino.Text;
  if Length(S1) = 0 then
    Application.MessageBox('Elija un Archivo de Origen para Encriptar','Advertencia',MB_ICONWARNING)
  else if Length(S2) = 0 then
    Application.MessageBox('Elija un Archivo de Destino para Encriptar','Advertencia',MB_ICONWARNING)
  else if SameText(S1, S2) then
    Application.MessageBox(' No se puede Guardar el Archivo con el mismo Nombre','Error',mb_iconError)
  else if (TryStrToInt(S1, Entero)) or (TryStrToInt(S1, Entero)) then
    Application.MessageBox('Debes Introducir una ruta valida','Error',MB_ICONERROR)
  else
  begin
    CifrarDescifrar(true);
    rest.Lines.LoadFromFile(guardar.FileName);
  end;