Fórum Problema com arquivo DFM em versões anteriores do Delphi #225173

function DFMToList(const ADfmFile: string; AList: TStrings): boolean;
var
  dfmStream: TMemoryStream;
  txtStream: TMemoryStream;
begin
  Result := True;

  dfmStream := TMemoryStream.Create;
  txtStream := TMemoryStream.Create;
  try
    try
      dfmStream.LoadFromFile(ADfmFile);
      ObjectResourceToText(dfmStream, txtStream); { Faz a conversão para texto }
      txtStream.Position := 0;
      AList.LoadFromStream(txtStream); { Preenche AList }
    except
      on EStreamError do Result := False;
      on EAccessViolation do result := False;
    end;
  finally
    dfmStream.Free;
    txtStream.Free;
  end;
end;