var
  ResourceStream: TResourceStream;
begin
  ResourceStream := TResourceStream.Create(HInstance, 'TheText', 'Text');
  try
    Memo1.Lines.LoadFromStream(ResourceStream);
  finally
    ResourceStream.Free;
  end;