Memo не может открыть весь файл

// Открыть файл.
procedure TForm1.MenuItem1Click(Sender: TObject);
var
  tf: TextFile;  // Объявляем файловую переменную для текстового файла.
  S: String;
begin
  if Memo1.Modified then begin
    if MessageDlg('Сохранение файла','Текущий файл бил изменён.'+#13+
                'Сохранить изменения?',
                 mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      MenuItem2Click(Sender);
  end;
  if OpenDialog1.Execute then begin
    if not FileExists(OpenDialog1.FileName) then exit;
    Memo1.Clear;
    AssignFile(tf, OpenDialog1.FileName);
    try
      Reset(tf);
      while not Eof(tf) do begin
        Readln(tf, S);
        Memo1.Lines.Add(S);
      end;
    finally
      CloseFile(tf);
    end;
    Memo1.Modified:=false;
  end;
end;

    try
      Reset(tf);
      Memo1.Visible:=false;
      while not Eof(tf) do begin
............
    finally
      CloseFile(tf);
      Memo1.Visible:=true;

iconv -f CP866 -t UTF-8 8-Test.txt > 8-Test2.txt