Как вставить содержимое файла в текущую позицию курсора в компоненте TMemo

var
  TheMStream: TMemoryStream;
  Zero: char;
begin
  TheMStream := TMemoryStream.Create;
  TheMStream.LoadFromFile('C:.BAT');
  TheMStream.Seek(0, soFromEnd);
  //Null terminate the buffer!
  Zero := #0;
  TheMStream.write(Zero, 1);
  TheMStream.Seek(0, soFromBeginning);
  Memo1.SetSelTextBuf(TheMStream.Memory);
  TheMStream.Free;
end;