| 
 Как вставить содержимое файла в
    текущую позицию TMemo.Для чтения файла будем использовать TMemoryStream, а
    затем используем метод SetSelTextBuf() из TMemo, чтобы
    вставить в него текст: var
  TheMStream : TMemoryStream;
  Zero : char;
begin
  TheMStream := TMemoryStream.Create;
  TheMStream.LoadFromFile('C:\AUTOEXEC.BAT');
  TheMStream.Seek(0, soFromEnd);
//Буфер завершается нулём!
  Zero := #0;
  TheMStream.Write(Zero, 1);
  TheMStream.Seek(0, soFromBeginning);
  Memo1.SetSelTextBuf(TheMStream.Memory);
  TheMStream.Free;
end;
      |