Сравнение двух текстовых файлов без выгрузки в Memo

var
a,b:string;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  openDialog : TOpenDialog;    // Переменная OpenDialog
begin
  Memo1.Text:='';
  Edit1.Text:='';
  // Создание объекта OpenDialog - назначение на нашу переменную OpenDialog
  openDialog := TOpenDialog.Create(self);
 
  // Установка начального каталога, чтобы сделать его текущим
  openDialog.InitialDir := GetCurrentDir;
 
  // Только разрешенные существующие файлы могут быть выбраны
  openDialog.Options := [ofFileMustExist];
 
  // Разрешено выбрать только .txt файлы
  openDialog.Filter :='Text files|*.txt';
 
  // Выбор файлов Паскаля как стартовый тип фильтра
  openDialog.FilterIndex := 2;
 
  // Показ диалог открытия файла
  if openDialog.Execute
  then
  begin
   Edit1.Text:=opendialog.FileName;
   Memo1.Lines.LoadFromFile(opendialog.FileName);
   a:=Memo1.Text;
  end
  else ShowMessage('Открытие файла остановлено');
 
  // Освобождение диалога
  openDialog.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  openDialog : TOpenDialog;    // Переменная OpenDialog
begin
  Memo2.Text:='';
  Edit2.Text:='';
  // Создание объекта OpenDialog - назначение на нашу переменную OpenDialog
  openDialog := TOpenDialog.Create(self);
 
  // Установка начального каталога, чтобы сделать его текущим
  openDialog.InitialDir := GetCurrentDir;
 
  // Только разрешенные существующие файлы могут быть выбраны
  openDialog.Options := [ofFileMustExist];
 
  // Разрешено выбрать только .txt файлы
  openDialog.Filter :='Text files|*.txt';
 
  // Выбор файлов Паскаля как стартовый тип фильтра
  openDialog.FilterIndex := 2;
 
  // Показ диалог открытия файла
  if openDialog.Execute
  then
  begin
   Edit2.Text:=opendialog.FileName;
   Memo2.Lines.LoadFromFile(opendialog.FileName);
   b:=Memo2.Text;
  end
  else ShowMessage('Открытие файла остановлено');
 
  // Освобождение диалога
  openDialog.Free;
end;
 
procedure Srav;
begin
  if a=b then
    ShowMessage('Файлы равны')
  else
    ShowMessage('Файлы не равны');
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  a:=Memo1.Text;
  b:=Memo2.Text;
  Srav;
end;

// процедура проверки
procedure CheckTwoFiles(N1, N2:string);
var
  l1, l2: TStringList;
begin
  l1 := TStringList.Create;
  l2 := TStringList.Create;
  try
    l1.LoadFromFile(N1);  //первый список
    l2.LoadFromFile(N2); // второй список
    if l1.Equals(l2) then ShowMessage('Файлы равны')
    else ShowMessage('файлы различаются');
  finally
    FreeAndNil(l1);
    FreeAndNil(l2);
  end;
end;
 
//пример использования
procedure TForm1.Button1Click(Sender: TObject);
begin
CheckTwoFiles('c:\t1.txt', 'c:\t2.txt');
end;
 
end.