DFM almacenado como recurso en ejecutable

[roman]

Ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  ResourceStream: TResourceStream;
  TextStream: TMemoryStream;

begin
  ResourceStream := nil;
  TextStream := nil;

  try
    ResourceStream := TResourceStream.Create(HInstance, 'TFORM1', RT_RCDATA);
    TextStream := TMemoryStream.Create();

    ObjectBinaryToText(ResourceStream, TextStream);
    TextStream.Seek(soFromBeginning, 0);

    Memo1.Lines.LoadFromStream(TextStream);
  finally
    ResourceStream.Free;
    TextStream.Free;
  end;
end;

LineComment Saludos