Вывод текста PChar

var
  f: File;
   Size, i: Integer;
   Buffer: PChar;
begin
  AssignFile(f, 'work.txt'); // в файле - привет
  Reset(f, 1);              
  Size:= FileSize(F);      
  GetMem(Buffer, Size);    
  try
    BlockRead(F ,Buffer^, Size);     // в  Buffer находится  привет и мусор какой то 
 
  finally
    Finalize(Buffer);
     FreeMem(Buffer);    
  end;
  CloseFile(F);     
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  F : File;
  S : AnsiString;
  Size: Integer;
  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(Handle, 'Файл с заданным именем не найден! Действие отменено.',
      'Внимание!', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
 
  //Загрузка текста из файла.
  AssignFile(F, Od.FileName);
  Reset(F, 1);
  try
    Size := FileSize(F);
    SetLength(S, Size);
    BlockRead(F, S[1], Size);
  finally
    CloseFile(F);
  end;
  
  Memo1.Text := S; //Показываем текст в Memo.
end;