Call Delphi initialization section

FindInitializationAndCall.pas

procedure FindInitializationAndCall;
var
  nameSpace: string;
  foundName: string;
  helperType: System.Type;
begin
  for helperType in Assembly.GetExecutingAssembly.GetTypes do
  begin
    nameSpace:= helperType.Namespace;
    if Assigned(nameSpace) then
    begin
      if not nameSpace.Contains('Borland') then
        if nameSpace.EndsWith('.Units') then
        begin
          foundName:= Copy(nameSpace, 1, Length(nameSpace)- Length('.Units'));
          if helperType.Name= foundName then
            if helperType.IsClass then
              helperType.GetMethod(foundName).Invoke(nil, nil);
        end;
    end;
  end;
end;