Чтение текстового файла из TFileStream

procedure TForm1.FormCreate(Sender: TObject);
 
const BUFSIZE=1; EOLN=#13;
 
var   TempString : String ;
      Symb       : PChar;
      FText      : TFileStream;
      File_Name:String;
 
begin
  Memo1.Clear;
 // File_Name:='D:\Projects\Bpl\ТЗ\testlog.txt';
  File_Name:='G:\test1.txt';   //сюда вбиваем имя 
  FText:=TFileStream.Create(File_Name,fmShareDenyNone);   //открываем
  FText.Seek(0,soFromBeginning);    //переходим на начало
  repeat
      GetMem(Symb,BUFSIZE);             //выделяем память под символ для чтения
      FText.Read(Symb^,BUFSIZE);        //читаем
      TempString:=TempString+Symb^;  //складываем символы в строку
      if (Symb^=EOLN) then                 //если конец строки то выводим строку в мемо и "обнуляем"
        begin
          Memo1.Lines.Add(TempString);
          TempString:='';
        end;
  until FText.Read(Symb^,BUFSIZE)=0;   //пока читается
end;

procedure TForm1.Button1Click(Sender: TObject);
 
var   TempString : String ;
      Symb       : AnsiChar;
      FText      : TFileStream;
      File_Name:String;
 
const BUFSIZE=1; EOLN=#13;
 
begin
  Memo1.Clear;
  File_Name:='..\..\Unit1.pas';   //сюда вбиваем имя
  FText:=TFileStream.Create(File_Name,fmShareDenyNone);   //открываем
  FText.Seek(0,soFromBeginning);    //переходим на начало
  repeat
      FText.Read(Symb,sizeof(symb));        //читаем
      TempString:=TempString+Symb;  //складываем символы в строку
      if (Symb=EOLN) then                 //если конец строки то выводим строку в мемо и "обнуляем"
        begin
          Memo1.Lines.Add(TempString);
          TempString:='';
        end;
  until FText.Position=FText.Size;   //пока читается
end;

procedure TForm1.Button8Click(Sender: TObject);
var
  St : String;
  fs : TFileStream;
  fn  : String;
begin
  Memo1.Clear;
  fn := 'unit1.pas';                                                    // сюда вбиваем имя
  fs := TFileStream.Create(fn, fmShareDenyNone);                        // открываем
  fs.Position := 0;                                                     // переходим на начало
  SetLength(St, fs.Size);
  fs.Read(St[1], fs.Size);                                              // читаем
  Memo1.Lines.Text := St;
  fs.Free;
end;

Fs := TFileStream.Create(FileName, fmOpenRead + fmShareDenyNone);
Memo1.Lines.LoadFromStream(Fs);
FreeAndNil(Fs);

procedure TForm1.Button1Click(Sender: TObject);
var
  Fs : TFileStream;
  Od : TOpenDialog;
begin
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( ParamStr(0) );
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageBox(0, 'Файл с заданным именем не найден. Действие отменено.'
      ,'Отмена!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  Fs := TFileStream.Create(Od.FileName, fmOpenRead + fmShareDenyNone);
  try
    Memo1.Lines.LoadFromStream(Fs);
  finally
    FreeAndNil(Fs);
  end;
end;

procedure TStrings.LoadFromFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;