[JCooper]

..............................................
AssignFile(f,OpenDialog1.FileName);
  Reset(f);
  i:=0;
  while not Eof(f) do
  begin
     i:=i+1;
     ReadLn(f,read_data[i]);
     Memo1.Lines.Add(read_data[i]);
  end;
...................................................

Вот код.  Все работает с нормальными текстовиками.

А файлы похоже действительно не текстовые....только с расширением txt;