[NumLock]

загружает в Мемо строку из Unit1.pas именно

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Код:

var
  FileStream: TFileStream;
  MemoryStream: TMemoryStream;
begin
  FileStream:=TFileStream.Create('Unit1.pas', fmOpenRead);
  try
    FileStream.Position:=$24;
    MemoryStream:=TMemoryStream.Create;
    try
      MemoryStream.CopyFrom(FileStream, 74);
      MemoryStream.Position:=0;
      Memo1.Lines.LoadFromStream(MemoryStream);
    finally
      MemoryStream.Free;
    end;
  finally
    FileStream.Free;
  end;
end;