[Вовa]

Сообщение от NumLock

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

Код:

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;

Огромнейшее тебе человеческое спасибо! )) 5!